Nummerierung Archive - Stefan's Weblog

5. April 20136. Februar 2021

Tabellen in einer Arbeitsmappe aufsteigend nummerieren

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.

➥ Weiterlesen...

8. August 201211. Dezember 2020

Werte fortlaufend in Zellen eintragen (fortlaufende Nummerierung)

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

➥ Weiterlesen...