Zähler zurücksetzen
21.01.2004 13:56:43
Pascal
Wer kann mir helfen?
Wie kann ich beim folgenden Makro den Zähler zurücksetzen?
Wo wird der Zähler überhaupt gesetzt bzw. wo findet das Makro den Anhaltspunkt, wie hoch der Zähler ist?
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_04_" & Format(iNme + 1, "0000")
Set nme = ActiveWorkbook.Names.Add( _
Name:="WKS" & Format(iNme + 1, "0000"), _
RefersTo:=Range("A1"), _
Visible:=False)
Besten Dank für Eure Antworten.
Gruss
Pascal