code anpassen
19.07.2006 15:55:45
jue
habe diesen code gefunden.
kann man den auch anpassen das er bei einer ausgeblendeten zeile weiterzählt?
Sub Lfd_Nr()
Dim bis As Integer, i As Integer
'Suche in Spalte B (entsprechend anpassen)
bis = Sheets("Tabelle1").Range("B65536").End(xlUp).Offset(0, 0).Row
'Spalte A als Text formatieren
Columns("A:A").NumberFormat = "@"
'Eintrag beginnt in Zeile 3 und Spalte A (entspechend anpassen)
For i = 1 To bis - 2
Sheets("tabelle1").Cells(2 + i, 1) = "1." & i
Next i
End Sub
besten Dank und gruss
jue