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
Hallo,
Range("A2")=Range("A1").Value + 1
Für konkretere Vorschläge müsste man deine Datei kennen.
So das durch drücken auf das Makro in Zelle B5 1001 erscheint dann in B6 1002 u.s.w.
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
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