Danke und Gruß
Daniel
Private Sub Worksheet_Change(ByVal Target As Range)
Dim merker As Long
Dim aktRow As Long
With ActiveSheet
merker = 1
For aktRow = 1 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Target.Column > 1 Then
.Cells(aktRow, 1) = merker
merker = merker + 1
End If
Next
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim merker As Long
Dim aktRow As Long
Dim anfang As Long
anfang = Inputbox("Bei welcher Zeile soll begonnen werden?")
With ActiveSheet
merker = 1
For aktRow = anfang To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Target.Column > 1 Then
.Cells(aktRow, 1) = merker
merker = merker + 1
End If
Next
End With
End Sub
Gruß
David