Ich habe mir aus der Recherche folgenden Code herausgesucht und angepasst
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereich1 As Range
Set bereich1 = Range("i15:i34")
If Not Intersect(Target, bereich1) Is Nothing Then
If Target.Value = "" Then Target.Offset(0, 5).ClearContents
Else: End If
End Sub
Es funktioniert aber nur, wenn ich den Inhalt von "I15" lösche. Wenn ich zum Beispiel den Inhalt von "I16" lösche, bleibt der Wert in "N16". Nur wenn ich nochmals "I16" lösche, funktioniert es.
Warum ist das so und wie kann ich es ändern?
Vielen Dank im Voraus
Gruss Klaus