Msgbox wenn Zeile vorhanden
Y
habe folgendes Problem und hoffe ihr könnt mir helfen.
Habe schon folgendes Makro geschrieben
Sub Übertragung_in_Archiv()
Rows("2:2").Select
Selection.Copy
Sheets("Historie Auswertung").Select
Cells(1, 1).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Es überträgt die Werte einer Zeile von einer Tabelle in eine andere und sucht sich dabei die erste freie Zeile zum einfügen.
Nun hätte ich gerne noch, dass dies nur geschiet, wenn das Datum (welches immer in Spalte a steht) noch nicht im Archiv vorhanden ist. Ansonsten soll eine MsgBox erscheinen.
Schon einmal vielen Dank für eure hilfe.