habe folgenden Code aus dem Forum und leicht verändert. Ich bekomme es aber nicht hin, weitere Spalten in der Listbox zu befüllen. ColumnCount habe ich schon auf 3 geändert.
Kann mir jemand helfen?
Private Sub UserForm_Initialize()
Dim wks As Worksheet, Zelle As Range, i As Long, Werte()
Set wks = Sheets("AEingang")
With wks
ReDim Werte(Application.WorksheetFunction.CountIf(.Range(.Cells(2, "K"), _
.Cells(.Rows.Count, "K").End(xlUp)), "Lieferverzug") - 1, 1)
i = 0
For Each Zelle In .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
If Zelle.Offset(0, 10).Value = "Lieferverzug" Then
Werte(i, 0) = Zelle.Offset(0, 28).Value
Werte(i, 1) = Zelle.Offset(0, 18).Value
Werte(i, 2) = Zelle.Offset(0, 19).Value 'das geht nicht !!!
i = i + 1
End If
Next
End With
With Me.ListBox1
.List = Werte()
.ColumnCount = 3
ReDim Werte(0)
End With
Label1.Caption = i & " Lieferverzüge"
End Sub
Gruß otto