Wie lese ich die aktuelle Zelle aus, bzw. ich möchte die vierstellige Zahl der aktuellen Zelle als Name für die Generierung eines neuen Blattes verwenden. Dabei möchte ich noch ein ganz bestimmtes Blatt als Kopiervorlage verwenden.
Das gezeigte Skript macht eine Kopie des aktuellen Blattes und zählt die Blattnummer + 1.
Wäre schön, wenn mir jemand helfen könnte!
Hier das Skript:
Sub NeuesBlatt2()
Dim s$, i&, strZahl$, strVorschlag$
' Name aktuelles Blatt
s = ActiveSheet.Name
' Zahlen von rechts ermitteln
For i = 1 To WorksheetFunction.Min(5, Len(s))
If Mid(s, Len(s) - i + 1, 1) Like "[0-9]" Then _
strZahl = Mid(s, Len(s) - i + 1, 1) & strZahl
Next i
If Not strZahl = "" Then
i = CLng(strZahl)
Else
i = 1
End If
' Neuen Namen vorschlagen
strVorschlag = Left(s, Len(s) - Len(strZahl)) & (i + 1)
' Namen abfragen
strZahl = InputBox("Bitte neuen Namen eingeben:", _
"Tabellenblatt benennen", strVorschlag)
' Blatt kopieren und umbenennen (ohne Prüfung ob vorhanden)
ActiveSheet.Copy After:=Sheets(ActiveSheet.Index)
ActiveSheet.Name = strZahl
End Sub
Gruß
Andre