Schlagwort: Nummerierung

Veröffentlicht am

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.

Das Ergebnis sieht dann so aus:

Excel Tabellen fortlaufenden nummerieren
Excel Tabellen fortlaufenden nummerieren
Veröffentlicht am

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 Beispiel 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

Der Code fügt automatisch die Zahlen 1 bis 10 in die Zellen h3 bis h10 ein.

Erklärung

  • Sheets.(„Grunddaten“).Select = Grunddaten ist der Name des Tabellenblatts
  • Range(„h3“).Select = Die Zelle H3 wird ausgewählt
  • ActiveCell.FormulaR1C1 = „R[-1]C+1“ = Die definierte Formel (R1[-1]C+1]) wird in die Celle H3 kopiert
  • Danach wird wieder die Zelle H3 ausgewählt und mit der Funktion AutoFill, wird die Formel in der definierten Range H3:H10 herunterkopiert.

Code

Der Code für eine fortlaufende Nummerierung der Spalte A beginnend bei Zelle A2 bis Zelle A65536 lautet

Sub Nummerierung() ' Nummeriert den Bereich A2:A65536 von 1 bis xxx 

Sheets("dbo_ARTIKEL_STAMM Abfrage").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A65536"), Type:=xlFillDefault
Range("A2:A65536").Select
End Sub

Weitere Möglichkeiten

Im nachfolgenden werden nur noch die Formeln gändert. Diese sind dann in das Makro einzusetzen.

  • ActiveCell.FormulaR1C1 = "=R[-1]C+0.5"

    Die Nummerierung erfolgt in 0.5 Schritten, also 0.5, 1, 1.5, 2, etc.

  • ActiveCell.FormulaR1C1 = "=R[-1]C-1"

    Die Nummerierung erfolgt in -1 Schritten, also, -1, -2, -3, etc.

In den nächsten Tagen kommt auch noch ein Artikel, der in Verbindung mit diesem Makro sehr nützlich sein kann ➡ Ermittlung der letzten befüllten Zeile in einem Tabellenblatt