ClearContents erweitern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: ClearContents erweitern
von: Giuseppe
Geschrieben am: 11.12.2003 07:46:54

Hallo Freunde Guten Morgen,
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
Bild


Betrifft: AW: ClearContents erweitern
von: ChrisL
Geschrieben am: 11.12.2003 07:59:57

Hi Giuseppe


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim Bereich As Range
    Set Bereich = Range("D7:ah51")
    
    If Intersect(Target, Bereich) Is Nothing Then Exit Sub
    Cancel = True
    
    Range(Target, Cells(Target.Row, Target.Column + 30)).ClearContents
End Sub



Gruss
Chris


Bild


Betrifft: AW: ClearContents erweitern
von: Giuseppe
Geschrieben am: 11.12.2003 08:16:12

Danke Chris,
es funkt.
noch 2 Fragen:
1.ich möchte auch der Bereich D66:Ah110 involvieren (als Set Bereich). Wie?
2.Es ist möglich, dass der Code Zellen mit Formel erkennt und nicht löscht?
(If Zelle hat Formel then MsgBox"The zellen können nicht gelöscht werden")
Danke
Giuseppe


Bild


Betrifft: AW: ClearContents erweitern
von: ChrisL
Geschrieben am: 11.12.2003 08:47:31

Hi Guiseppe

Option Explicit


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim Bereich As Range, Zelle As Range
    
    Set Bereich = Range("D7:AH51, D66:AH110")
    
    If Intersect(Target, Bereich) Is Nothing Then Exit Sub
    Cancel = True
    
    For Each Zelle In Range(Target, Cells(Target.Row, Target.Column + 30))
        If Zelle.HasFormula = False Then Zelle.ClearContents
    Next Zelle
End Sub


Gruss
Chris


Bild


Betrifft: AW: ClearContents erweitern
von: Giuseppe
Geschrieben am: 11.12.2003 09:00:16

Danke Chris.
Du hast mir sehr geholfen.
Ciao Giuseppe


Bild

Beiträge aus den Excel-Beispielen zum Thema " ClearContents erweitern"