Worksheet kopieren Fehler1004
22.02.2020 20:51:41
Mario
ich fange gerade erst an mich mit VBA zu beschäftigen. Ich habe folgenden Code zusammengeklaubt: _
Sub CommandButton1_Click()
Dim intAnzahl As Integer
Sheets("Tabelle1").Copy After:=Sheets("Tabelle1")
ActiveSheet.Name = Format(Now + 1, "YYYYMMDD")
For intAnzahl = ActiveSheet.OLEObjects.Count To 1 Step -1
If ActiveSheet.OLEObjects(intAnzahl).progID = "Forms.CommandButton.1" Then
ActiveSheet.OLEObjects(intAnzahl).Delete
End If
Next
Worksheets("Tabelle1").Activate
End Sub
Der Code funktioniert auch wunderbar, jedoch benötige ich noch 2 Erweiterungen bzw. Varianten:
1. Wie schaffe ich es, dass das neue Worksheet nicht nur mit dem aktuellen Datum benannt wird sondern auch eine fortlaufende Versionierung erhält wie z.B. 20200222_V1?
2. Wenn ich den Code so belasse und der Code am selben Tag 2 mal ausgeführt wird, wie kann ich die Debugg Fehlerbox durch die Message "Report wurde schon angelegt." ersetzen?
Vielen Dank für Eure Hilfe.