Office: Array durch Listbox füllen

Guten Morgen Leute,
habe mal wieder ein Problem mit einem Array.
Bekomme es irgendwie nicht gebacken zu verstehen wie ich ein Array am Anfang und während des fortlaufenden Makros richtig dimensioniere.

Code:

Hier ein Ausschnitt meines bisherigen Codes. Dabei überprüfe ich, welche Daten der Listbox ausgewählt wurden und möchte diese in ein Array schreiben. Jedoch kommt beim hervorgehobenen Codeabschnitt die Fehlermeldung, dass das Array bereits dimensioniert ist.

Dabei dachte ich, dass ich das Array jedesmal, wenn ein Listbox-Element ausgewählt wurde um 1 erhöht wird. Leider funktioniert das nicht so ganz :8

Hoffe mir kann da jemand helfen.

Bei Bedarf lade ich eine Beispieldatei hoch

Danke im Voraus

Gruß Carsten

:)

 

Moin,

da stellt sich die Frage nach dem Sinn des Redim.

Wenn die Anzahl überschaubar bleibt, dann kannst Du ohne Bedenken beim Anlegen einen Wert vorgeben, der in der Praxis nicht überschritten wird. Das frisst kein Brot, Speicher kostet nichts mehr.

Eine weitere Möglichkeit, je nach Anwendungsdesign: Mehrfachauswahl zulassen und entsprechend dimensionieren.

Soll die Auswahl denn beliebig oft erfolgen und das Array jedesmal verlängert werden? Dann wäre das Design zu überdenken - die bereits vorhandenen Einträge sollten dann angezeigt werden.

Gruß
Ralf

 

Hi Ralf,
danke für deine Antwort.

Das Ganze ist so gedacht, dass zu Beginn in die Listbox mehrere Einträge geladen werden. Diese Anzahl ist jedoch völlig variabel, sodass eine Vorauswahl keinen Sinn macht.

Gedacht habe ich das folgendermaßen:
1. Mehrere Daten in Listbox auswählen (entspricht Tabellenblattnamen)
2. ausgewählte Daten in Array fortlaufend eintragen
3. Array mittels For-Schleife durchlaufen und alle Einträge verarbeiten (Array deshalb forlaufend, um mit LBound und UBound zu arbeiten)

Hoffe das erklärt deine Fragen

Gruß Carsten

 

Hi,

meine Zweifel bezogen sich auf die Praxis: Listboxen sind in der Länge meist eher begrenzt. Selbst wenn Du mit 5000 Werten rechnest, ist das immer noch nichts, wovor sich VBA fürchten müsste. Und wenn es um Tabellenblätter geht, liegen wir wohl noch viel niedriger.

Gruß
Ralf

 

Hi Carsten,

so sollte es richtig laufen:

Code:

Allerdings hat die Verwendung von ReDim Preserve arrAuswahl(UBound(arrAuswahl) + 1) den Nachteil, dass du im 0. Feld keinen Eintrag erhältst. Benutze stattdessen eine extra Zählvariable:

Code:

 

Hi Beverly,
vielen Dank für deine Antwort.
Hatte es davor anders gelöst und zwar hab ich das Array einfach von 1 statt 0 auslesen lassen *biggrin.gif*

werde aber deine Methode verwenden, um das Ganze auch "richtig" zu lösen.

Vielen Dank für alle Antworten der User

Gruß Carsten

 

Hallo,

... kurze Frage in die Runde: Wie kann ich mir das Ergebnis des ArrAuswahl anzeigen lassen?



Vielen Dank

 

Hi,

wo willst du es anzeigen lassen?

 

Hi,

Code:

alternativ:

Code:

gruß Carsten

 

Hi,

das geht auch einfacher *wink.gif* :

Code:

 

... super ... funktioniert ... Vielen Dank ...