Blattnamen automatisch ändern

[wavemaster]

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

[Kuwer]

Hallo,

schreib doch in A2 z.B.: =TEIL(ZELLE("Dateiname");FINDEN("]";ZELLE("Dateiname"))+1;999)
Die Datei muss aber schon mal gespeichert worden sein, damit das funktioniert.

Gruß Uwe

[wavemaster]

Hallo Uwe,
habe Ich eingefügt es geht leider nicht , habe die Datei angehängt...

[Kuwer]

Hallo,

ich meinte es so, dass sich die Kopie ja automatisch nach dem Schema AZ 01 (2), AZ 01 (3) usw. benennt.
Die Formel in A2 (muss übrigens nicht mit Strg+Shift+Enter abgeschlossen werden) berechnet sich leider nicht automatisch. Aber das Drücken von F9 sollte reichen.

Gruß Uwe

[wavemaster]

Hallo UWE,
danke für die Antwort.
Ist es dann möglich wenn nur die 1 in A2 steht das er die dann hochzählt auf 2..3..4

habe es probiert es steht im Moment 1 (2)

oder gibt es sonst noch eine andere Lösung.

Danke

[Kuwer]

Hallo,

vielleicht so: =MAX(1;WECHSELN(0&TEIL(ZELLE("Dateiname");SUCHEN("]1";ZELLE("Dateiname"))+4;999);")";""))

Gruß Uwe

[wavemaster]

Hallo Uwe,
die Formel funktioniert, jedoch ändert er jetzt nicht mehr den Blattnamen auf die Angaben in Zelle A2 

[schauan]

Hallöchen,

das Worksheet_Change reagiert auf Eingaben.

und in der Zelle A2 die die Zahl ändere

Ein Worksheet_Calculate reagiert auf Berechnungen. Ob das jedoch immer gut ist ...

Die Formel in A2

Eventuell müsste man dann ausweichen auf DieseArbeitsmappe und im Prinzip den Code nehmen, mal mit "a2" vereinfacht

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Name = "a2"
End Sub

[wavemaster]

Hallo Andre,
geht zwar aber er nennt das neue Blatt nicht mehr nach Zelle A2

[schauan]

Hallöchen,

ich schrieb ja extra

mal mit "a2" vereinfacht

Den Unterschied zwischen einer Zeichenkette und einem Zellbezug kennst Du, oder nicht?