22.03.2021, 21:05
Hallo zusammen,
habe eine Formel die mir wenn ich eine Kopie eines Blattes erzeuge und in der Zelle A2 die die Zahl ändere mir auch das Blatt so benennt.
1stes Blatt heißt AZ01
Kopie heißt dann AZ01_2
gibt es eine Möglichkeit die Formel so umzuschreiben das bei der erzeugung einer Kopie des ertsen Blattes als AZ01 gleich in AZ02 bei einer weiteren Koipie des 2 Blattes dann AZ03 in der Zelle A2 eingetragen wird.
Die Formel wäre
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Target Then
MsgBox "Dieser Name existiert bereits"
Exit Sub
End If
Next
ActiveSheet.Name = Target
End Sub
habe eine Formel die mir wenn ich eine Kopie eines Blattes erzeuge und in der Zelle A2 die die Zahl ändere mir auch das Blatt so benennt.
1stes Blatt heißt AZ01
Kopie heißt dann AZ01_2
gibt es eine Möglichkeit die Formel so umzuschreiben das bei der erzeugung einer Kopie des ertsen Blattes als AZ01 gleich in AZ02 bei einer weiteren Koipie des 2 Blattes dann AZ03 in der Zelle A2 eingetragen wird.
Die Formel wäre
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Target Then
MsgBox "Dieser Name existiert bereits"
Exit Sub
End If
Next
ActiveSheet.Name = Target
End Sub