ClearContents erweitern
11.12.2003 07:46:54
Giuseppe
mit der Code wird die active Zelle gelöscht.
Meine Frage:
Wie kann man der Code ergänzen, damit die active Zelle + 30 Zellen (rechts) auch gelöscht werden?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Bereich As Range
Dim Z
' Bereich der Wirksamkeit
Set Bereich = Range("D7:ah51")
If Intersect(Target, Bereich) Is Nothing Then Exit Sub
Cancel = True
ActiveCell.Select
Selection.ClearContents
End Sub
Danke Giuseppe