Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

combobox mit variabler Quelle

combobox mit variabler Quelle
08.08.2007 12:42:47
Sascha
Ich mal wieder =)
Möchte eine Combobox in einem UserForm mit einer Liste von Namen laden, die in Spalte A ist, sich in ihrer Länge verändern kann, da da über das UserForm auch Namen hinzugefügt werden können. Geht also von A2 bis erste nicht beschriebene Zelle. Mein (kläglicher) Versuch war:

Sub ComboBox_mit_variabler_Range()
Dim strLeereZelle As String
With Worksheets("XY")
.Activate
strLeereZelle = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
.Cells(strLeereZelle, 1) = strName
End With
ComboBox1.RowSource = ("A2:" & strName)
End Sub


Ich such also die erste freie Zeile in und definier dann die Zelle der Spalte A als strName. Das mag er aber als Quelle der Rowsource nicht...
Danke schon mal wieder im Voraus,
sascha

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

Betreff
Datum
Anwender
Anzeige
AW: combobox mit variabler Quelle
08.08.2007 12:58:00
Rudi
Hallo,
so:

Sub ComboBox_mit_variabler_Range()
Dim strLeereZelle As String
With Worksheets("XY")
strLeereZelle = .Cells(Rows.Count, 1).End(xlUp).Address
End With
ComboBox1.RowSource = ("A2:" & strLeereZelle)
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: combobox mit variabler Quelle
08.08.2007 12:59:23
Renee
Hello Sascha,
Probier mal:

Sub ComboBox_mit_variabler_Range()
ComboBox1.RowSource = "A2:A" & Activesheet.Range("A" & ActiveSheet.Rows.Count).End(xlup).Row
End Sub


Greetz Renee

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige