Ich hatte vor länger Zeit schon einmal angefragt...
www.herber.de/forum/archiv/1076to1080/t1076338.htm
...jedoch bis heute leider keinerlei Hilfe erhalten.
Bitte, kann mir keiner helfen? Ich bräuchte dringend Hilfe!
Vielen Dank im Voraus.
Gruß Mike
www.herber.de/forum/archiv/1076to1080/t1076338.htm
Private Sub CommandButton1_Click()
'Vorlagenblatt kopieren, einfügen und umbenennen mit fortlaufender Nr.
Dim wksNeu As Worksheet
Dim wksAkt As Worksheet
Dim intNameNr As Integer
Dim strKopie As String
Set wksAkt = ActiveSheet
'Startext für Name Blatt-Kopie
strKopie = InputBox("Datum eingeben!", "Datum ändern...", Left(wksAkt.Name, 11))
'neues Blatt einfügen
wksAkt.Copy after:=wksAkt
Set wksNeu = ActiveSheet
'Nummer des Neuen Namens ermitteln - Es wird die höchste Zählnummer der Namen ermittelt
intNameNr = 1
On Error GoTo Erhöhen
wksNeu.Name = strKopie & IIf(Right(strKopie, 1) = "_", intNameNr, Chr(intNameNr - 1 + Asc(" _
A")))
On Error GoTo 0
End
Erhöhen:
intNameNr = intNameNr + 1
Resume
End Sub
wie beschrieben, wenn im neuen Blattnamen das letze Zeichen ein "_" ist , wird die Nummer angehängt, ansonsten der Buchstabe.