Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige