Laufende Nummer nach Sortierung
05.09.2006 10:42:31
Gisela
ich arbeite mit einer lfd.Nummer entsprechend dem Makro
Sub LaufendeNummer()
Application.ScreenUpdating = False
Dim lngLfdNr As Long
Dim lngIndx As Long
lngLfdNr = 1
'Angabe ab welcher Zeile - hier 11
For lngIndx = 11 To Range("C175").End(xlUp).Row Step 1
Cells(lngIndx + 0, 1).Value = lngLfdNr
lngLfdNr = lngLfdNr + 1
Next lngIndx
Call InLetzteZelle
End Sub
Das klappt auch. Nun sollen die Daten aber nach der Spalte D sortiert werden.
Danach stehen die lfd.Nr. in der Spalte A nicht mehr fortlaufend.
Was muss ich ändern, damit die höchste Nummer in der Spalte A und nicht die in der untersten belegten Zeile stehende Nr. als Referenz für die neue lfd. Nr. vergeben wird.
Beispiel: In der Spalte A stehen die lfd.Nr. aufgrund der Sortierung (Spalte D) jetzt so untereinander:
1;5;3;4;6;7;2; usw.
Die nächste lfd.Nr. müsste jetzt die 8 sein.
Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt und jemand kann mir helfen.
Vielen Dank für jede Hilfe und Grüße
Gisela