Hallo zusammen
Ich habe vor einem Jahr mit Hilfe einiger VBA-Cracks aus dem Forum das folgende Makro zusammengebastelt.
Wie kann ich jetzt den Zähler wieder auf "0" stellen, damit es für diese Jahr wieder bei 0001 anfängt.
....
' Blatt mit fortlaufender Nummer erstellen
Sheets("Blindmuster").Select
Dim wks As Worksheet
Dim nme As Name
Dim iNme As Integer
Dim sNme As String
For Each nme In ThisWorkbook.Names
sNme = Right(nme.Name, 4)
If Len(sNme) = 4 And IsNumeric(sNme) Then
If CInt(sNme) > iNme Then
iNme = CInt(sNme)
End If
End If
Next nme
With ThisWorkbook
.Worksheets("Blindmuster").Copy after:=.Worksheets(.Worksheets.Count)
End With
ActiveSheet.Name = "B_05_" & Format(iNme + 1, "0000")
Set nme = ActiveWorkbook.Names.Add( _
Name:="WKS" & Format(iNme + 1, "0000"), _
RefersTo:=Range("A1"), _
Visible:=False)
' Neu erstelltes Blatt in neue Datei verschieben und gem. aufgeführtem Prozess speichern
....
Besten Dank für Eure Hilfe.
Gruss
Pat