ich habe wieder einmal ein kleines Problem und bitte um eure Hilfe.
Ich fülle eine Listbox mit nachstehendem Code:
'Anfang ListBox4
Dim iZeile4 As Long, i4 As Integer
Dim iCounter4 As Long: iCounter4 = 0
With ListBox4
.ColumnCount = 10
.ColumnWidths = "3,2cm;3cm;2,5cm;2,5cm;3cm;2,5cm;2,5cm;2,5cm;2,5cm;2,5cm"
.Clear
End With
With Worksheets("Lehrerliste")
For iZeile4 = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
If .Cells(iZeile4, 4) = 0 Then
If iCounter4 = 0 Then
ReDim ar(11, iCounter4)
Else
ReDim Preserve ar(11, iCounter4)
End If
For i4 = 0 To 10
ar(i4, iCounter4) = .Cells(iZeile4, i4 + 1)
Next i4
ar(11, iCounter4) = iZeile4
iCounter4 = iCounter4 + 1
End If
Next iZeile4
ListBox4.List = Application.Transpose(ar)
End With
'Ende ListBox4
In der Spalte A (1) sind Namen aber nur bis zu einem variablen Bereich. Nach dem bisherigen Code werden alle Daten in der ListBox4 angezeigt, deren Wert in Spalte D (4) den Wert 0 enthält.
Damit werden aber auch alle Zeilen angezeigt, die in Spalte A keinen Wert enthalten.
Wie muss ich o.a. Code abändern, damit nur die Zeilen angezeigt werden, welche in Spalte A Wert enthalten und in Spalte D 0?
Besten Bank für eure Hilfe.
Gruss
Peter