ich habe hier einen Code mit dem Listboxen gefüllt werden können wenn Bedingungen erfüllt sind. Nun meine Frage, wie kann ich dabei eine 2. Bedingung einfügen, sodaß wenn in "("W2:W" & iRow)
Text<>"erledigt" Listbox gefüllt wird.
Dim C As Range
Dim Zeile1, iRow As Integer
iRow = Worksheets("Speicher").UsedRange.Rows.Count
For Each C In Worksheets("Speicher").Range("V2:V" & iRow)
If C.Value = "Angebot" Then
With Me.ListBox1
.AddItem C.Offset(0, -2).Value
.List(Zeile1, 1) = C.Offset(0, -).Value
.List(Zeile1, 2) = C.Offset(0, -0).Value
.List(Zeile1, 3) = C.Offset(0, -15).Value
.List(Zeile1, 4) = C.Offset(0, - 10).Value
.List(Zeile1, 5) = C.Offset(0,3).Value.
.List(Zeile1, 6) = Cells(C.Row - 1, Cells(C.Row,_ 256).End(xlToLeft).Column).Text
.List(Zeile1, 7) = C.Row
End With
Zeile1 = Zeile1 + 1
End If
Next C
Gruß Jens