Ausstieg wenn 2 Bedingungen nicht erfüllt sind
25.10.2023 15:11:18
Georg
der Code funktioniert, was ich nicht hinkriege: Wenn die Kombination von Zelle P2 und Q2 im Suchbereich (Spalte G und Spalte J) NICHT gefunden wird, sollte eine MsgBox erscheinen mit Meldung "Kombi so nicht vorhanden".
Vielen Dank Georg
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim T1Lastr As Long
With Tabelle3
ZeileMax = .UsedRange.Rows.Count
For Zeile = 7 To ZeileMax
Dim strSuch As String
strSuch = Tabelle1.Range("P2")
Dim strSuch2 As String
strSuch2 = Tabelle1.Range("Q2")
If .Range("G" & Zeile).Value = strSuch Then
If .Range("J" & Zeile).Value = strSuch2 Then
T1Lastr = Tabelle1.UsedRange.Rows.Count
.Range(.Cells(Zeile, 2), .Cells(Zeile, 12)).Copy
Tabelle1.Cells(T1Lastr + 1, 2).PasteSpecial Paste:=xlPasteValues
End If
End If
Next Zeile
End With
Tabelle1.Range("E6:E" & Rows.Count).NumberFormat = "dd.mm.yy"
End Sub