Wenn ich diesen Code richtig Interpetiere schaut das Makro (IF Datum1) aber in der zweiten _ Tabelle in A1 es soll aber in der ganzen Spalte A suchen, wenn das Datum schon vorhanden ist wurde es zu einem frühren Zeitpunkt schon von dem Makro kopiert. (Date Then) sollte jetzt nach Möglichkeit durch die Zelle A3 aus der ersten Tabelle ersetzt werden.
Sub test()
Datum1 = Sheets(2).Range("A1")
Sheets(1).Range("a3:Q3").Copy
If Datum1 Date Then
'MsgBox "nicht gleich"
leerzeile = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets(2).Range("A" & leerzeile & ":Q" & leerzeile).PasteSpecial (xlPasteValues)
Else
'MsgBox "gleich"
Sheets(2).Range("A3:Q3").PasteSpecial (xlPasteValues)
End If
Application.CutCopyMode = False
End Sub
Vielen Dank für Eure Mühe!!!
Gruß Markus