Worksheet_Change
14.05.2006 11:20:47
Korl
ich habe mir aus dem Archiv folgenden Code herausgesucht und den zu überwachenden Bereich angepasst.
Nun möchte ich erreichen,dass, wenn in dem Bereich ein Wert gelöscht wird, ebenfals in den zwei Nachbarzelle die Werte gelöscht werden.
Also wird in "B20" gelöscht soll automatisch "C20:D20" gelöscht werden.
Private Sub Worksheet_Change(ByVal Target As Range)
'Überwachung eines Bereiches "B15:B35"
If Not Intersect(Target, Range("B15:B35")) Is Nothing Then
'MsgBox "Zelle " & Target.Address(0, 0) & " wurde geändert!"
End If
End Sub
Kann mir jemand helfen?
Gruß Korl