AW: Leere Zeilen aus Listbox automatisch löschen
09.05.2006 13:57:59
Luschi
Hallo Franc,
Du willst an der falschen Stelle die Schraube drehen; wenn die Daten in der Listbox stehen, ist es zu spät. Ändere das Makro "setList" wie folgt ab:
Private Sub setList()
Dim varList() As Variant
Dim lngRow As Long, lngLast1 As Long, lngLast2 As Long, lngIndex As Long
'letzte Zeile ermitteln
lngLast1 = Cells(Rows.Count, 1).End(xlUp).Row
'Anzahl der Zeilen im Filter ermitteln
lngLast2 = Application.WorksheetFunction.Subtotal(3, ActiveSheet.Range("A2:A" & lngLast1))
ReDim varList(lngLast2 - 1, 6)
For lngRow = 2 To lngLast1
If Rows(lngRow).Hidden = False Then
varList(lngIndex, 0) = Cells(lngRow, 1)
varList(lngIndex, 1) = Cells(lngRow, 3)
varList(lngIndex, 2) = Cells(lngRow, 7)
varList(lngIndex, 3) = Cells(lngRow, 9)
varList(lngIndex, 4) = Cells(lngRow, 10)
varList(lngIndex, 5) = Cells(lngRow, 14)
varList(lngIndex, 6) = Cells(lngRow, 15)
lngIndex = lngIndex + 1
End If
Next
If lngIndex > 0 Then
setColCountAndWidth ListBox1, varList
End If
End Sub
Gruß von Luschi
aus klein-Paris