Wenn ich Daten löschen möchte,bekomme ich in den unteren Makro immer einen Debugfehler.
Könnte mir da bitte jemand Helfen.
Gruss Heinz
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngSchnitt As Range
Set rngSchnitt = Application.Union(Range(Target.Address), Range("D7:D389"))
If rngSchnitt.Address = Range("D7:D389").Address And _
(UCase(Target.Value) = UCase("1") Or _
UCase(Target.Value) = UCase("2") Or _
UCase(Target.Value) = UCase("3") Or _
UCase(Target.Value) = UCase("1B") Or _
UCase(Target.Value) = UCase("2B") Or _
UCase(Target.Value) = UCase("3B") Or _
UCase(Target.Value) = UCase("S")) Then Target.Offset(0, 2).Value = 8