Situation:
Zelle A1 = 1
Zelle A2 = 2
Zelle A3 = 3
danach wird eine weitere Zeile Zelle A4 mit der Zahl 2 erfasst.
Was passieren muss ist, das das Makro erkennt das die neue Zahl 2 die 2 ist und alles was bereits an Datensätzen vorhanden ist was größer gleich der erfassten neuen Zahl ist um 1 erhöht wird. Das heißt die Zelle A1 bleibt unberührt und ab Zelle A2 wird um 1 erhöht aber der neue Datensatz behält seine Zahl nämlich die 2. Danach will ich das neu aufsteigend sortieren lassen.
Dann schlage ich vor, du beschäftigst dich erst mal mit dem Makro.
Hier ist es noch mal:
Dim rngNew As Excel.Range
Set rngNew = Cells(Rows.Count, "A").End(xlUp).Offset(1)
rngNew.Value = 2
Dim rngCell As Excel.Range
For Each rngCell In Range("A1", rngNew.Offset(-1)).Cells
If rngCell.Value >= rngNew.Value Then
rngCell.Value = rngCell.Value + 1
End If
Next
Anmerkung: In diesem Forum zählt (geistige) Mitarbeit - es stellt kein Selbstbedienungsladen dar, sondern Hilfestellung zum Dazulernen.
- schau dir die For-Schleife an; verstehe wie sie funktionert / die Logik dahinter
- dann Entferne Zeile 4
- und nun überlege dir, was du in Zeile 3 ändern musst, damit es wie von dir beschrieben funktioniert.
Tip: Range-Offset-Eigenschaft
Grüße
|