Makro in Excel zur Nummerierung?!

Computer: Software & Programmierung Office Software
1

Hi,

wie kann ich ein Makro erstellen, mit dem ich eine fortlaufende
Nummerierung habe?

Ich möchte es für meine Rechnungen verwenden und muß doch da
irgendwie 1+1 hinterlegen können?

Danke,

Markus

2

Hallo,

Deine Anfrage ist nicht ganz klar. Ich hab Dir auf Verdacht mal ein kleines Makro geschrieben, welches die Zahl in der aktuellen Zelle um 1 erhöht.

Public Sub PlusEins()
 Dim Wert As Long
 Wert = Val(ActiveCell.Value)
 If Wert \> 0 Then
 ActiveCell.Value = Wert + 1
 End If
End Sub

Wenn Du allerdings in einer Tabellenspalte einfach fortlaufenden Nummern untereinander haben möchtest, dann gib einfach in die erste Zelle den Startwert ein, markiere sie und wähle dann „Bearbeiten => Ausfüllen => Reihe“. In der Dialogbox „Reihe“ wählst Du dann „Spalten“ und gibst noch den Endwert ein. Den Rest erledigt Excel selbst.

Beantwortet das Deine Frage? Ansonsten bitte nochmal neu formulieren :wink:

Gruß
(Woly)