ich habe im forum unten angeführten code gefunden mit welchem ich gefilterte daten aus einer tabelle in eine listbox welche sich in einer userform befindet übertrage. das funktioniert einwandfrei. sind da aber alle daten weggefiltert so bekomme ich einen laufzeitfehler. kann mir jemand sagen wie ich den code abändern muss damit er funktioniert?
lg fritz
Dim iRow As Integer
Dim rngCell As Range
Dim arr() As Variant
'.....................................................
With ListBox1
.Clear
.ColumnCount = 4
End With
With Sheets("Arbeitszeiten")
For Each rngCell In .UsedRange.Columns(1).SpecialCells(xlVisible)
If rngCell.Row > 1 Then
ReDim Preserve arr(0 To 3, 0 To iRow)
arr(0, iRow) = .Cells(rngCell.Row, 1)
arr(1, iRow) = .Cells(rngCell.Row, 2)
arr(2, iRow) = .Cells(rngCell.Row, 3)
arr(3, iRow) = .Cells(rngCell.Row, 4)
iRow = iRow + 1
End If
Next rngCell
End With
ListBox1.Column = arr