Wie füllt man eine Combobox
Hallo
ich bin Anfänger in Sachen VBA.
Mein Problem ist, dass ich nicht weiss, wie ich die Daten die ich in TabelleX habe in meiner Combobox angezeigt bekomme. Online Hilfe gibt dann Ratschläge wie
Ausdruck.AddItem(Text, Index)
Ich versteh dieses text & index nicht und werde aus der Hilfe auch nicht schlau..... hilfe!
Folgende Angaben noch dazu.
Ich hab ein UserForm erstellt mit 3 Commandbuttons zum auswählen des gewünschten. Nach der Auswahl gelange ich zu 3 Comboboxen. Diese muss ich mit Daten hinterlegen
Ich möchte aus TabelleX Spalte B und Zeile 3 genauso wie B4, B5 in meiner Combobox angezeigt bekommen um sie auswählen zu können.
Allerdings bleibt meine Box leer und solangsam bin ich ratlos. Hoffenltich könnt ihr mir hier helfen
Danke schonmals im Vorraus
Grüße Adii
Antwort schreiben
Antwort 1 von Hajo_Zi vom 05.12.2020, 12:59 Options
Hallo Adi,
Eigenschaftren, RowSource Tabelle1!A1:A23
Gruß Hajo
Antwort 2 von adii vom 05.12.2020, 13:15 Options
Hallo Hajo
vielen Dank für die schnelle Antwort.
Müsste ich jetzt im Eigenschaftsfeld wenn ich vorher meine ComboBox (ComboTralalala) einfach anklicke, einfügen =TabelleX!B3:B7 oder wenn ich auf mein Combofeld doppelklicke erscheint dieses
Private Sub ComboTralalala_Change()
End Sub
hier rein wie folgt einfügen
Syntax
object.RowSource [= String]
Sorry vielleicht stell ich mich wirklich ungeschickt an, aber das ist alles Neuland für mich
Grüße
Antwort 3 von Hajo_Zi vom 05.12.2020, 13:33 Options
hallo Adi,
die Frage verstehe ich jetzt nicht. Die Werte sind mit Aufruf der UserForm drin.
Gruß Hajo
Antwort 4 von fedjo vom 05.12.2020, 13:36 Options
Hallo Adii
Tasten Alt +F11, UserForm, Combobox, rechte Mouse Taste, Eigenschften, RowSource Tabelle1!A1:A23
Gruß
fedjo
Antwort 5 von adii vom 05.12.2020, 13:44 Options
Mhh wie müsste denn der Syntax befehlen lauten?
Private Sub ComboTralalala_Change()
TabelleX![B3:B7] = RowSource
End Sub
oder eher
Private Sub ComboTralalala_Change()
TabelleX.RowSource [=B3:B7]
End Sub
Grüße
Antwort 6 von Hajo_Zi vom 05.12.2020, 13:48 Options
Hallo Adi,
warum muss man das per VBA machen?
Option Explicit
Private Sub UserForm_Activate()
ComboBox1.RowSource = "Tabelle1!A1:A23"
End Sub
Gruß Hajo
Antwort 7 von adii vom 05.12.2020, 14:00 Options
Hallo Hajo
Der Grund liegt darin begründet, dass hier mehrere Tabellenblätter miteinander verglichen werden sollen und das am besten mit nur 1-2 klicks
Grüße und nochmals vielen Dank
Antwort 8 von adii vom 05.12.2020, 14:05 Options
Hallo fedjo & hajo
mittlerweile läufts *jippie*
Der Tag ist gerettet - werde heute abend ein Bierchen auf Euch trinken ;)
Grüße
Antwort 9 von Hajo_Zi vom 05.12.2020, 14:56 Options
Hallo Adi,
dem schließe ich mich doch gleich an. Ich vermute aber wir trinken in verschiedenen Kneipen?
Gruß Hajo
Antwort 10 von Adii vom 05.12.2020, 15:28 Options
Das vermute ich auch, da ich auf ne Privatparty gehe. Aber lass es dir trotzdem schmecken ;)