Hallo Chris,
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 3 Then
If Target <> "" Then
If Target.Offset(, 1) = "" Then
Target.Offset(, 1) = WorksheetFunction.Max(Columns(4)) + 1
End If
End If
End If
End If
End Sub
Gruß Atilla