Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Combobox füllen

Forumthread: Combobox füllen

Combobox füllen
01.09.2020 21:49:03
Lara
Hallo liebe Excel-Gemeinde,
ich habe folgenden Code für das füllen einer zweiten Combobox. Dieser bezieht sich die Daten aus dem Tabellenblatt 1 aus dem Bereich F:K.
Dim arr As Variant
arr = Sheets("Tabelle1").Range("F" & cbxAuswählen.ListIndex + 1 & ":K" & cbxAuswählen.ListIndex + 1)
cbxMitglied_auswählen.Column = arr
End Sub
Ich habe nun den Wunsch das ganz nur auf die Spalte "A" zu beziehen:
Dim arr As Variant
arr2 = Sheets("Tabelle2").Range("A:A" & cbxMNummer.ListIndex + 1)
cbxOrt.Column = arr2
End Sub
Aber anscheinend mache ich hierbei einen Fehler...
Vielleicht findet jemand von euch diesen ja auf die schnelle ^^
Liebe Grüße und bereits vielen Dank im Voraus
Lara
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox füllen
01.09.2020 22:27:35
Mullit
Hallo,
bei Deinem ersten Bereich hast Du zur Startspalte F auch eine Startzeile angegeben, die fehlt in Deinem zweiten Addresstring....
arr = Sheets("Tabelle1").Range("F" & cbxAuswählen. _
ListIndex + 1 & ":K" & cbxAuswählen.ListIndex + 1)
arr2 = Sheets("Tabelle2").Range("A:A" & cbxMNummer.ListIndex + 1)

Gruß, Mullit
Anzeige
AW: Combobox füllen
01.09.2020 22:33:31
ralf_b
ich gehe davon aus ,das der listindex +1 die letzte Zeilennummer in der Spalte A hergibt.
Dim arr2 As Variant
arr2 = Sheets("Tabelle2").Range("A1:A" & cbxMNummer.ListIndex + 1)
cbxOrt.Column = arr2
End Sub
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige