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.
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.
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)