Sie sind zurzeit offline. Es wird auf die erneute Herstellung einer Internetverbindung gewartet.

VBA: Listenfelder über Arrays füllen

Dieser Artikel wurde zuvor veröffentlicht unter D32820
Disclaimer zu nicht mehr gepflegten KB-Inhalten
Dieser Artikel wurde für Produkte verfasst, für die Microsoft keinen Support mehr anbietet. Der Artikel wird deshalb in der vorliegenden Form bereitgestellt und nicht mehr weiter 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.

VBA Listenfeld Array füllen Dialog Element
Eigenschaften

Artikelnummer: 506230 – Letzte Überarbeitung: 08/27/2002 00:00:00 – Revision: 1.0

Microsoft Excel 95 Standard Edition

  • array dialog element füllen listenfeld vba KB506230
Feedback