Vor Löschauftrag / Sicherungskopie
Wolfgang
ich arbeite mit folgendem Code:
Private Sub CommandButton2_Click()
Dim x As Integer
x = MsgBox("Achtung! Sollen die Urlaubseinträge gelöscht werden?", vbYesNo)
If x = vbNo Then Exit Sub
If x = vbYes Then
Der Code funktioniert einwandfrei.
Der Code soll nun folgendermaßen erweitert werden:
Wenn der Löschauftrag mit "Yes" bestätigt wird, soll vor dem löschen eine "Sicherungskopie" erstellt werden.
Die "Sicherungskopie soll dann im Tabellenblatt "Sicherungskopie" gespeichert werden.
D. h., vor jedem bestätigtem Löschauftrag muss dann auch die vorhandene "Sicherungskopie" gelöscht und durch die Neue/Aktuelle ersetzt werden.
Die Sache ist nicht unbedingt wichtig; wäre aber toll, wenn jemand hierzu eine Idee hat.
Mit Gruß
Wolfgang