Makro verbessern
04.11.2005 13:42:33
achim
Habe ein Makro von U_ wollte es ein wenig umschreiben aber bekomme es noch nicht auf die Reihe:
Das Makro soll Ab C2 zählen und dann B2:C2 markieren und dann mit AutoFill so viel wie gezählt runterziehen.
Sub test()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Einteiler")
For i = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
.Cells(i, 4) = i
Next i
End With
Application.ScreenUpdating = True
End Sub
Gruß
achim h.
Anzeige