Schönen guten morgen zusammen,

ich habe folgenden Code um täglich Daten zu erzeugen. Dieser läuft echt super, jedoch gibt es Probleme, wenn an einem Tag mehrmals das Makro ausgeführt wird. Dadurch verdoppeln - verdreifachen - vervierfachen (kommt drauf an wie oft man drückt) sich die Datensätze.

Nun möchte ich gerne eine Absicherung einbauen, die folgendermaßen funktioniert:

Wenn der Wert in "Q5" im Sheet "V_TAG" in Spalte "L" im Sheet "Results_Day" vorkommt, führe das Marko nicht aus und gib eine Messagebox zurück "Datensatz für dieses Datum existiert bereits!"

Dies hier ist mein Code:

Sub CreateResults_Day()
'CreateResults_Day Makro

'Variablen
    Dim m As Long
    m = Sheets("Results_Day").UsedRange.SpecialCells(xlCellTypeLastCell).Row

'1. Kopieren der Daten
    Application.Goto Reference:=Worksheets("V_TAG").Cells(5, 6) 'Cells(Zeile, Spalte)
    Range(ActiveCell, Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)).Select
    Selection.Copy
    
'2. Einfügen der Daten
    Application.Goto Reference:=Worksheets("Results_Day").Cells(m + 1, 1) 'Cells(Zeile, Spalte)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
'3. Zurück auf die TSD Fetch Seite
    Application.Goto Reference:=Worksheets("V_TAG").Cells(1, 1) 'Cells(Zeile, Spalte)
    Application.CutCopyMode = False
      
 
End Sub

Vieln Dank vorab!
Felix