|
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
|