VBA: Listenfelder über Arrays füllen

Veralteter Haftungsausschluss für KB-Inhalte

Dieser Artikel wurde für Produkte geschrieben, für die Microsoft keinen Support mehr anbietet. Deshalb wird dieser Artikel im vorliegenden Zustand bereitgestellt und nicht mehr aktualisiert.

Problembeschreibung

Ich arbeite mit Microsoft EXCEL für WINDOWS 95, Version 7.0. Ich programmiere in VISUAL BASIC für Applikationen (VBA) Dialogfelder. In einem Listenfeld habe ich die Möglichkeit, einen Listenbereich aus Tabellen-Zellen zuzuordnen, mit dessen Werten es gefüllt wird. Kann ich dieses Listenfeld auch über eine VBA Prozedur füllen, so daß ich keinen separaten Tabellenbereich benötige?

Antwort:

EXCEL 7.0 bietet Ihnen die Möglichkeit, Listenfelder über Arrays in Variablen zu schreiben. Sie können somit zum einen bestimmen, wie viele Einträge die Variable haben soll. Zum anderen können Sie die Einträge der Variable zuordnen, und dann in einer Schleife Eintrag für Eintrag das Listenfeld mit den Einträgen füllen.
Bitte passen Sie im nachfolgenden Beispiel die Namen "Dialog1" und "Listenfeld 1" an, falls Sie andere Namen verwendet haben.

Sub ListenfelderFüllen()
Dim Liste(5) 'Anzahl der Einträge für die Variable wird bestimmt
Liste(1) = "a" 'Zuordnung der Einträge auf die Variable
Liste(2) = "b"
Liste(3) = "c"
Liste(4) = "d"
Liste(5) = "e"
DialogSheets("Dialog1").ListBoxes("Listenfeld 1").RemoveAllItems
For i = LBound(Liste) + 1 To UBound(Liste)
DialogSheets("Dialog1").ListBoxes("Listenfeld 1").AddItem Text:=Liste(i)
Next
End Sub

Weitere Informationen zum Erstellen von Dialogfeldern finden Sie in der Online-Hilfe zu VBA.

Bitte beachten Sie:

Die Verwendung des hier abgedruckten Makro- bzw. Programm-Codes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diesen Makro bzw. dieses Programm-Listing ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung. Der Makro bzw. das Programm-Listing soll lediglich exemplarisch die Funktionsweise des hier abgedruckten oder auf der Diskette enthaltenen Beispiels aufzeigen.

Microsoft, MS, VISUAL BASIC und Excel sind eingetragene Warenzeichen.
WINDOWS und WINDOWS NT sind Warenzeichen der Microsoft Corporation.

Eigenschaften

Artikelnummer: 506230 – Letzte Überarbeitung: 27.08.2002 – Revision: 1

Feedback