könnt ihr mir dieses Makro umbauen.
Ich möchte es in ein anderes Makro einbauen, das in einem Modul läuft.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 11 Then Exit Sub
If Target <> Cells(Target.Row - 1, 11) Then
Cells(Target.Row, Target.Column + 4) = _
Cells(Target.Row - 1, Target.Column + 4) + 1
Else
Cells(Target.Row, Target.Column + 4) = _
Cells(Target.Row - 1, Target.Column + 4)
End If
End Sub
Vielen Dank für eure Hilfe!
Tschüß
Rolf