Lfd-Nr wiederherstellen
02.10.2007 09:49:46
Joachim
ich hab in einer Tabelle in Spalte A eine laufende Nummer (bis 2800). Über ein Makro lösche ich einzelne Zeilen raus, das bedeutet nach der Lfd-Nr. 6 folgt nun die 8, da die 7 gelöscht wurde. Um die Lfd-Nr. gleich wieder richtig zu stellen, habe ich folgenden Code geschrieben:
last_tab1 = Sheets("Tabelle1").Cells(65000, 1).End(xlUp).Offset(1, 0).Row
For lfd_tab1 = 1 To last_tab1 - 2
Sheets("Tabelle1").Cells(lfd_tab1 + 1, 1) = lfd_tab1
Next lfd_tab1
Das Makro funktioniert zwar, dauert aber recht lange (ca. 1 Min), da es von 1 bis 2800 durchgeht.
Da ich viele Zeilen löschen muss, wird die Wartezeit recht lang.
Gibt es eine elegantere und schnellere Lösung?
Gruss
Joachim