List vs AddItem
17.12.2004 01:05:35
Christian
ich hoffe, ihr könnt mir bei dem folgenden Verständis-Problem helfen.
In eine ComboBox einer UserForm lese ich die Werte aus Spalte A ein.
Dass die "List-Methode" der AddItem-Methode" vorzuziehen ist, ist mir klar. (kürzerer Code und keine Schleife)
Bei variabler Anzahl der Werte aus Spalte A führt die "List-Methode" bei mir jedoch zu eine Fehler, wenn weniger als zwei Werte an die ComboBox übergeben werden sollen. (siehe Code-Beispiele)
"AddItem" läuft dagegen fehlerfrei.
Meine Frage:
gibt es hierfür eine Lösung oder muss ich im Zweifelsfall doch auf "AddItem" zurückgreifen?
(vielleicht steh ich ja auch einfach nur auf dem Schlauch ...is ja auch schon spät...)
Vielen Dank für eure Hilfe
Christian
Beispiel "List":
Private Sub UserForm_Initialize()
Dim LastRow As Integer
With Worksheets("Tabelle1")
LastRow = .Range("A65536").End(xlUp).Row
ComboBox1.List = .Range("A2:A" & LastRow).Value 'Fehler, wenn LastRow kleiner als 3
End With
End Sub
Beipiel "AddItem":
Private Sub UserForm_Initialize()
Dim LastRow As Integer
Dim i As Integer
With Worksheets("Tabelle1")
LastRow = .Range("A65536").End(xlUp).Row
For i = 2 To LastRow
ComboBox1.AddItem .Cells(i, 1).Value
Next i
End With
End Sub