könnte man in folgenden Coden irgendwie einen Filter einbauen um nur die sichtbaren Zeilen in die ListBox zu laden:
Sheets("Bestellung").Activate
Dim l As Long, c As Range
Set c = ActiveSheet.Cells(Rows.Count, 1)
l = c.Row: If IsEmpty(c) Then l = c.End(xlUp).Row
lstBestellung.RowSource = "A2:AB" & l
lstBestellung.ListIndex = 0
Ein Füllen der ListBox mit Arrays möchte ich vermeiden, da die angeklickten Daten an Labels und TextBoxen weitergegeben werden sollen und nach Änderung zurück an die Tabelle übergeben werden, somit stimmt dann der ListIndex nicht mehr mit der Zeile überein. Ich würde also irgendwas wie...
If Not Rows(c).Hidden Then....
Danke für jede Hilfe.
Grüsse
Drazen