Hallo, ich wolle fragen, ob es möglich ist, einer Combobox im Visal Basic Editor von Word oder Excel über den Eigenschafteninspektor Werte zuzuweisen, oder ob das nur über

Code :

1	Combobox.adItem

möglich ist.
Gruß

-André-

Hallo André,

leider ist das Befüllen einer ComboBox unter VBA mit dem entsprechenden Editor unter Word oder Excel im Eigenschaften - Dialog nicht möglich. Hier muß also zum Initialisieren der ComboBox die Methode combo1.addItem herhalten.

Vieken Dank für die schnelle Antwort.
Wo soll ich denn den Befehl addItem am besten hinschreiben, dass beim öffnen des Dokuments alle Werte direkt eingetragen sind?

Gruß
-André-

Hi,

wenn sich das Kombinationsfeld direkt im Dokument befindet, kannst du auf den Open-Event zugreifen:

Code :

1 2 3 4 5 6 7 8 9 10 11

Private Sub Document_Open()     Dim arrWoTa As Variant     Dim strEntry As Variant         arrWoTa = Array("Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag")         For Each strEntry In arrWoTa         ThisDocument.ComboBox1.AddItem strEntry     Next     ThisDocument.ComboBox1.ListIndex = 0 End Sub

Möglich wäre auch, die Routine auszuführen, wenn das Dokument neu angelegt wird.

Befindet sich das Kombinationsfeld in einem Formular, kann der Initialize-Event verwendet werden.

Code :

1 2 3 4

' Formular hat den Name UserForm Private Sub UserForm_Initialize()   ' Anweisungen zum Füllen des Kombinationsfeldes END Sub

Ciao
Quaese

Hallo André,

die Initialisierung der ComboBox nimmst Du am besten in der Prozedur UserForm_Initialize vor. Diese Prodzedur wird bei der Initialisierung der Benutzerform aufgerufen. Initialize ist ein Startereigniss von VB-Formularen und wird nur einmal aufgerufen, nämlich beim Initialisieren des Formulars. Wenn Du also die Werte direkt benötigst, ist diese Ereignis-Prozedur der richtige Ort.

Entschuldige bitte die etwas verspätete Antwort.

z.B.:
Private Sub UserForm_Initialize()
With Combo1
.AddItem "Wert 1"
.AddItem "Wert 2"
.AddItem "Wert 3"
.ListIndex = 0 'Zeigt beim Start direkt den ersten Wert in der Liste an
End With
End Sub

Vielen Dank für die beiden Antworten, ihr habt mir wirklich weitergeholfen.
Gruß
-André-