Eine Frage zum Thema Listbox. Ich habe in meiner UserForm eine ListBox die mir aus einer Spalte befüllt wird. Diese Einträge sind dann mit der ListStyleOption einzeln auswählbar.
Da es sich um gut 40 einträge handelt wollte ich hier eine Art Struktur mittels Leeren Zellen in der Spalte erzeugen. Das klappt auch, allerdings sind diese Leerzeilen auch auswählbar. Und das möchte ich gerne vermeiden.
Der (die) Code(s) sind im Private Sub UserForm_Initialize()
Aktuell fülle ich die ListBox mit:
'Befuellt die ListBox mit den Eintraegen aus dem Tabellenblatt "Infos"
ThisWorkbook.Worksheets("Infos").Activate
UserForm_Zeiterfassung.ListBox_Tätigkeit.RowSource = "A3:A45"
ListBox_T?tigkeit.ListStyle = fmListStyleOption
Ein anderer Code würde auch funktionieren, dieser streicht mir dann aber die Leerzeilen komplett raus und ich habe die 40Einträge in der ListBox direkt untereinander:
Dim Leer As Long
With UserForm_Zeiterfassung.ListBox_T?tigkeit
.ListStyle = fmListStyleOption
End With
For Leer = 3 To 45
If ThisWorkbook.Worksheets("Infos").Cells(Leer, 1) "" Then _
UserForm_Zeiterfassung.ListBox_T?tigkeit.AddItem ThisWorkbook.Worksheets("Infos").Cells(Leer, 1)
Next
Meine Frage ist nun:
Ist es möglich die Leerzeilen ohne Auswahlmöglichkeit in der ListBox darzustellen?
Gruß
Dante