Innerhalb einer Excel Arbeitsmappen kann man die einzelnen Tabellen fortlaufend nummerieren lassen.
Das Makro dafür lautet:
Sub Nummerierung()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Name = "CW" & i '+ 1
Next
End Sub
Innerhalb des Codes ist CW durch den von euch gewünschten Namen zu ersetzen.
Mit Hilfe eines Makros ist es möglich Werte fortlaufend in eine Spalte schreiben zu lassen.
In diesem Beispielt wird eine fortlaufende Nummerierung in den Bereich H3:H10 eingetragen.
Sub Wertfortlaufend()
' fortlaufendeZahl Makro
Sheets("Grunddaten").Select
Range("h3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("h3").Select
Selection.AutoFill Destination:=Range("h3:h10"), Type:=xlFillDefault
Range("h3:h10").Select
End Sub