ich habe folgendes Problem, und zwar möchte ich am Anfang zwei Zeilen mitenander vergleichen. Es soll geprüft werden ob das Datum identisch ist. Wenn nicht, dann möchte ich den Gesamten Bereich eines Tabellenblatts(4) kopieren und in einem anderen Tabellenblatt(6) ganz oben einfügen.
Die vorhandenen Daten sollen dann nach unten rücken.
Hier ist mein bisheriger Code, allerdings wir hier einfach alles überschrieben.
Sub Monatsliste_erweitern()
Dim LZ As Integer
LZ = Sheets(4).Cells(Rows.Count, 1).End(xlUp).Row
If Sheets(4).Cells(2, 1) Sheets(6).Cells(2, 1) Then
'Rows(LZ - 1).Insert
Sheets(4).Range(Cells(2, 1), Cells(LZ, 8)).Copy _
Destination:=Sheets(6).Cells(2, 1)
End If
End Sub
Vielen dank schonmal.Gruß,
Franky