Fortlaufende Nummer Makro mit Kriterium
08.03.2019 13:36:44
Christian
ich versuche derzeit folgendes umzusetzen:
Ein Makro welches mir eine fortlaufende Nummer in Spalte A (ab A8 bis A500) erzeugt, sobald ich eine Eingabe in Spalte B, C, D oder E tätige.
Wichtig ist nur, dass die anderen Spalten dann jeweils vorher leer sind.
Das heißt, wenn ich in Spalte B etwas eingebe, muss Spalte C, D, E leer sein, sonst wird keine fortlaufende Nummer erzeugt.
Wenn ich bspw. wiederum in Spalte E eine Eingabe tätige, muss Spalte B, C & D leer sein, damit eine fortlaufende Nummer in Spalte A eingetragen wird.
Bei meiner Recherche bin ich auf diesen Code hinsichtlich fortlaufender Nummer gestoßen - (Bereich bei mir A8 bis A500).
Public Sub Nummerierung()
Cells(2, 1).Value = 1
Range(Cells(2, 1), Cells(Rows.Count, 2).End(xlUp).Offset(0, -1)).DataSeries Type:= _
xlDataSeriesLinear
End Sub
Ich wünsch allen ein schönes Wochenende :-)
LG, Christian
Anzeige