Ich habe mir ein Makro aus der recherche gesucht und habe es in einer autoform bei klick eingefügt aber irgentetwas stimmt da nicht da muss noch eine veränderung vorgenommen werden ich weiß aber nicht welche.
Sub AutoForm14_BeiKlick()
Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As Long
If Target.Column = 2 And Target.Row > 4 Then
For N = 5 To [b65536].End(xlUp).Row
If Cells(N, 2) <> "" Then
Cells(N, 1) = N - 4
End If
Next
End If
MfG
Ralf
End Sub