ich habe eine Auslese und er soll 2 Bedingungen überprüfen. Ich habe es versuch mit "AND" aber dann kommt eine Fehlermeldung anbei mal der Code
Sub Schaltfläche2_Klicken()
Dim Zeile As Long
Dim ZeileMax As Long
Dim i As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 3
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 29).Value = "Optimierung erfolgt" And "keine Optimierung möglich" Then
.Rows(Zeile).Copy Destination:=Tabelle4.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Vielen Dank im Voraus.
lg Rene