Office: ausgewählte Elemente einer Listbox nach erneutem Aufrufen automatisch markieren

Hallo zusammen,

ich stecke mal wieder an einer Stelle fest. Vielleicht habt ihr eine Idee bzw. einen Ansatz dazu: *sos

Also ich habe eine Tabelle in Excel und eine UserForm mit Listboxen. Im Laufe meines Programmes werden Elemente aus der Tabelle in die Listboxen geladen.

Die Listbox ist so eingestellt, dass man mehrere Elemente gleichzeitig auswählen kann. (MultiSelect= 1-fmMultiSelectMulti)

Nachdem man also Elemente ausgewählt hat und einen Button klickt, werden zuerst die ausgewählten Elemente in der Exceltabelle markiert. ( Ich schreibe ein "x" in die Zelle vor dem Element)
Code:

Danach rufe ich eine Methode auf, die neue Taps in Excel erstellt und die Zeilen, die mit einem "x" markiert wurden, in diese neuen Taps kopiert

Code:

Das funktioniert alles ohne Probleme.

Jetzt kommt mein "Problem".

Ich möchte, dass bei einem erneuten Aufruf die Elemente in der Listbox, die ich in dem Ablauf davor schon einmal ausgewählt habe, automatisch wieder ausgewählt sind.

(Vielleicht hilft das dabei: die Elemente sind in Excel immernoch durch das "x" markiert.)

Bei dem erneuten Aufruf sollen auch keine neuen Taps in Excel erstellt werde, da diese ja schon vorhanden sind.

Man soll dann die Möglichkeit haben die Auswahl in der Listbox zu ändern/ zu ergänzen und in den vorher erstellten neuen Taps sollen dann die aktuell ausgewählten Elemente erscheinen.



Ich hoffe ich konnte das einigermaßen verständlich beschreiben und ihr könnt mir helfen. *winken

:)

 

Hi,

wie weist du der ListBox die Inhalte zu - per direktem Zellbezug bei RowSource oder mit AddItem?

 

Das mache ich in mit dieser Methode:

Code:

Die Elemente die ich in die Listbox fülle stehen in Tabellen.

 

Du kannst in einer Schleife über alle Zeilen des als RowSource eingetragenen Tabellenbereichs laufen und prüfen, in welcher Zeile (Zelle) ein X steht - nach diesem Prinzip:

Code:

Beachte dabei, dass der ListIndex der ListBox bei 0 und nicht bei 1 beginnt.

 

Hallo Beverly,

ich habe deinen Teil mal in meine Methode eingebaut, die die Listboxen mit den Elementen aus der Tabelle füllt.

Code:

Das Problem ist nur, dass er nicht erkennt, das in der ersten Zelle ein "x" steht. Das heißt, die Elemente in der Listbox werden nicht angewählt, wenn dort ein "x" steht.

Ich hab mal eine Tabelle, aus der die Daten für die Listbox kommen im Anhang angefügt.

Kann das daran liegen, das ich nur den Bereich der Tabelle in die Methode übergebe? (In dem Anhang ist das der Bereich B3 bis D8)
Oder habe ich den Code falsch eingefügt?

 

Mir ist noch einfgefallen, dass ich in der Listbox nur die jeweils erste Zelle einer Zeile anzeigen lasse.
Siehe Beispiel im Anhang
Vielleicht hilft das ja auch noch weiter.

 

Hi Nadine,

deine X sind nicht in .Offset(0, 1) - also rechts neben der Spalte - sondern in .Offset(0, -1), also links neben der Spalte.

 

Hallo Beverly,

das sieht schon viel besser aus! *top

Allerdings ist jetzt noch das Problem, das nur das letzte Element mit einem "x" angewählt wird. Selbst wenn mehrere mit einem "x" markiert sind.

Wie kann ich das umschreiben, damit alle Elemente, die in der Tabelle mit einem x markiert sind automatisch schon ausgewählt sind?

 

Ich glaub ich hab mich gerade etwas vertan. Es wird nicht nur das letzte Element ausgewählt.
Die Anzahl der ausgewählten Elemente stimmt jetzt zwar schon, aber es werden die falschen Elemente in der Listbox ausgewählt. *confused.gif*
Ich hab dir mal ein Beispiel angehängt.

Hast du eine Erklärung dafür?

 

Hi Nadine,

Excel kann Bilder leider nicht in eine Arbeitsmappe umwandeln.

 

Hast du trotzdem eine Idee, warum sich das so verschiebt?
Bzw. was ich da ausprobieren könnte?
Bin leider noch nicht so erfahren mit VBA ...

 

Versuche es nach diesem Prinzip:

Code:

 

Hallo Beverly,

du bist echt super!
Funktioniert wunderbar, vielen lieben Dank! *top