AW: Leerzeilen beim Einlesen in ListBox ignorieren
Heiner
Hallo Renee,
die ListBox befindet sich in der UserForm1.
Der Code zum Einlesen (noch nicht ganz komplett...):
Private Sub UserForm_Activate()
With ListBox1
.ColumnWidths = "50;100;60;0"
.ColumnCount = 4
End With
End Sub
Private Sub UserForm_Initialize()
Dim arr() As Variant
Dim i As Integer
Dim iRow As Integer
Dim iAnz As Integer
With Sheets("Tabelle1")
iAnz = WorksheetFunction.CountA(.Range("b4:f500"))
ReDim arr(0 To iAnz - 1, 0 To 4)
iRow = 0
For i = 4 To 500
If .Cells(i, 2).Value "" Then
arr(iRow, 0) = .Cells(i, 2)
arr(iRow, 1) = .Cells(i, 5)
arr(iRow, 2) = .Cells(i, 4)
iRow = iRow + 1
End If
Next
End With
ListBox1.List = arr
End Sub
Hast Du eine Idee?
Grüsse, Heiner