Liebes Forum,

ich bräuchte wieder einmal Hilfe bei einem kleinen Problem. Wenn in Spalte B Tabellenwerte geändert werden, dann wird in Spalte R ein Wert aus einem anderen Tabellenblatt übernommen. Wenn der Wert in Spalte B gelöscht wird, wird der Wert/Zähler in Spalte R auf 0 gestellt. Der zusammengebastelte Code macht an sich was er soll, zumindest wenn ich nur die Werte in Spalte B einzeln eintrage oder lösche. Wenn ich aber die Einträge von Spalte B-P auf einmal entferne, was öfters vorkommt, dann bekomme ich einen Fehler mit Typen unverträglich. Wäre super, wenn mir jemand sagen kann, wie ich den Code umschreiben muss, damit ich die Werte von Spalte B-P auf einmal löschen kann.

Hier noch der Code:

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    Select Case Target.Value
     Case Is <> ""
        Application.EnableEvents = False
        Target.Offset(0, 16) = Sheets(3).Range("N1")
        Application.EnableEvents = True
        End Select
        
    Select Case Target.Value
     Case Is = ""
        Application.EnableEvents = False
        Target.Offset(0, 16) = 0
        Application.EnableEvents = True
        End Select
        
End Sub

Vielen Dank im Voraus für Eure Hilfe.

LG Sam