Namen mit Leerzeilen in Combobox auflisten
28.08.2003 10:41:54
Roger
Ich habe für eine Combobx folgenden Code:
Private Sub UserForm_Initialize()
Dim i As Integer
Dim vorher, nachher As String
Set D2 = UserForm2
Application.ScreenUpdating = False
'Range("A6").Select
i = 6
With D2.ComboBox1
.Clear
Do While IsEmpty(Worksheets(1).Cells(i, 1)) = False
vorher = Worksheets(1).Cells(i, 1)
nachher = Worksheets(1).Cells(i + 1, 1)
If vorher = nachher Then GoTo weiter1
.AddItem Worksheets(1).Cells(i, 1)
i = i + 1
GoTo ende1
weiter1:
i = i + 1
ende1:
Loop
End With
Application.ScreenUpdating = True
End Sub
Soweit funktioniert er einwandfrei. Nun möchte ich aber das es mir auch die Daten auflistet wenn eine leere Zeile dazwischen ist. Dies kann mehrmals vorkommen und wird wegen der übersicht benötigt. Geht das überhaupt wenn ja wie muss ich den Code abändern?
Besten Dank für eure Hilfe
Gruss Roger