Hallo,
nach diversen Versuchen mein Problem selber zu lösen, habe ich mich jetzt für Kapitulation entschieden und mich in diesem Forum angemeldet. Ich bin seit kurzem in die VBA-Programmierung eingestiegen und fasziniert von dem "was geht"!
Bei mir ist leider noch einiges "Versuch und Irrtum" und so hoffe ich auf Unterstützung.
Nun zu meinem Problem:
Ich habe eine Tabelle mit 10 Spalten. Die länge der Tabelle verändert sich ständig. In Spalte A möchte ich ab Zeile 5 eine Fortlaufende Nummerierung haben.
Das funktioniert auch mit folgendem Code:
'lfdNr fortlaufend
'Variablen definiert
Dim Sp As Integer 'Spalte
Dim StartWert As Integer
Dim StartR As Integer 'Start Reihe
Dim lR As Inteter 'letzte Reihe
Dim i As Integer 'für Schleifendurchlauf
'Variablen Werte zuweisen
Sp = 1
StartWert = 1
StartR = 5
lR = Cells(Rows.Count, 2).End(xlUp).Rows.Row
For i = StartR To lR
Cells(i, Sp).Value = StartWert
StartWert = StartWert + 1
Next i
In Spalte B habe ich die Werte 1-5 eingetragen und danach sortiert (Gruppennamen).
Nun möchte ich, dass die Nummerierung bei jeder Gruppe neue startet und das bekomme ich leider nicht hin und hoffe auf euch.