Wie kann ich in folgenden Befefehl
Sub KopiereBlatt_() 'Tabelle1 als Sicherheitskopie in KopieOriginal speichern
Dim var
For Each var In ThisWorkbook.Sheets
If var.Name = "Kopie Original" Then
If MsgBox("Das Blatt 'Kopie Original' gibt es schon." & vbCrLf _
& "Soll ein neues Blatt erstellt werden?", vbQuestion + vbYesNo, "Sicherungskopie _
bereits vorhanden") = vbYes Then
Sheets("Tabelle1").Copy Before:=Sheets(Worksheets.Count)
On Error Resume Next
ActiveSheet.Name = "Kopie " & Date
If Err.Description "" Then
MsgBox "Kopie " & Date & vbCrLf & Err.Description
Err.Clear
Exit Sub
End If
Else
Exit Sub
End If
End If
Next
Sheets("Tabelle1").Copy Before:=Sheets(Worksheets.Count)
ActiveSheet.Name = "Kopie Original"
End Sub
die Funktion einfügen, damit wieder die Tabelle1 activ wird, und zur letzten ausgefüllten Zeile in der Tabelle1 gesprungen wird.
Habe da wenig Erfahrung. Würde mich über einen ferigen Code freuen. Abändern dürfte dann kein Problem sein.
Danke im voraus.
LG Silke