ListBox reduzieren
14.09.2018 06:55:11
Antonio
in Tabelle1 sind folgende Eiträge:
Cxxxxxxxxx aaaaa
Cxxxxxxxxx bbbbb
Cxxxxxxxxx ccccc
Cxxxxxxxxx ddddd
Dxxxxxxxxx aaaaa
Dxxxxxxxxx bbbbb
Dxxxxxxxxx ccccc
Dxxxxxxxxx ddddd
Exxxxxxxxx aaaaa
Exxxxxxxxx bbbbb
Exxxxxxxxx ccccc
Exxxxxxxxx ddddd
usw.
mit diesem Code lade ich die Eiträge in ListBox:
Dim lLetzte As Long
Dim lZeile As Long
Dim lLibox As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
lLetzte = .Cells(Rows.Count, 1).End(xlUp).Row '
For lZeile = 2 To lLetzte
If .Cells(lZeile, 1) = "" Then Exit For
ListBox7.AddItem
ListBox7.List(lLibox, 0) = .Cells(lZeile, 1).Value
lLibox = lLibox + 1
Next lZeile
End With
Application.ScreenUpdating = True
Cxxxxxxxxx aaaaa
Dxxxxxxxxx aaaaa
Exxxxxxxxx aaaaa
Kann mir bitte jemand helfen den Code so zu verändern das es klappt?
Vielen Dank in Voraus
Antonio