Makro für eine fortlaufende Nummer

[AlexanderVennemann]

Hallo zusammen,

ich möchte ein Makro erstellen auf das ich klicken, welches dann eine fortlaufende Nummer erstellt und bei erneuten klicken unter die letzte Nummer die nächste in fortlaufender Rheinfolge setzt.n.
Leider bin ich da auf Hilfe angewiesen, ich hoffe ihr könnt mir mit der richtigen Makro Formel helfen.

Grüße
Alex

[Klaus-Dieter]

Hallo,

Range("A2")=Range("A1").Value + 1

Für konkretere Vorschläge müsste man deine Datei kennen.

[AlexanderVennemann]

So das durch drücken auf das Makro in Zelle B5 1001 erscheint dann in B6 1002 u.s.w.

[NobX]

Hallo Alex,

Du kannst es z. B. auch so machen: einen 

Code:

Private Sub CommandButton2_Click()
Dim i As Long
Dim j As Long
Dim n As Long

n = Cells(Rows.Count, 2).End(xlUp).Row + 1
j = n - 1
    Do
        For i = j To n
            If MsgBox("Soll eine neue Auftragsnummer eingefügt werden?", vbYesNo) = vbNo Then
            Exit Do
            Else
                If Cells(i, 2) <> "" Then
                Cells(i + 1, 2) = Cells(i, 2).Value + 1
                Else
                End If
            End If
            j = j + 1
            n = n + 2
        Next
    Loop
End Sub

So wird Dir bei jeder Abfrage nach einer neuen Auftragsnummer unterhalb eine neue Auftragsnummer mit dem Wert + 1 eingesetzt.

Grüße

Norbert

[RPP63]

Moin!
Makro? Na logisch!
Schließlich kann man auch mit einem Hubschrauber starten, um zum 50 Meter entfernten Bäcker zu fliegen …
Du möchtest eine Reihe ab 1000?
Dann schreibe in die erste Zelle der Spalte =ZEILE(RPP1000) und ziehe diese hochkomplexe Formel bei Bedarf nach unten.

Gruß Ralf