Worksheet_BeforeRightClick then...

Hallo liebe Forum User
Ich würde gerne mit diesem Code einen Bereich makieren und dann mit der Rechtenmaustaste diesen mit einem x versehen oder das x wieder entfernen .Mit dem entfernen das klappt aber nicht makieren mit dem x nur wenn ich jede Zelle einzelnd auswähle und dabei die STRG taste halte.
Geht das auch anders ?


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then Target = "x" Else Target = ""
End If
End Sub

Gruß Basti

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim z As Range If Target.Column > 1 Then Exit Sub Else: Cancel = True For Each z In Target.Cells Select Case z.Value Case Is = "x" z.Value = vbNullString Case Is = vbNullString z.Value = "x" End Select Next End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim z As Range If Target.Column > 1 Or Target.Columns.Count > 1 Then Exit Sub Else: Cancel = True For Each z In Target.Cells Select Case z.Value Case Is = "x" z.Value = vbNullString Case Is = vbNullString z.Value = "x" End Select Next End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim z As Range If Target.Column > 1 Or Target.Columns.Count > 1 Then Exit Sub Else: Cancel = True For Each z In Target.Cells.SpecialCells(xlCellTypeVisible) Select Case z.Value Case Is = "x" z.Value = vbNullString Case Is = vbNullString z.Value = "x" End Select Next End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Zelle as Range If Not Intersect(Target, Range("A:A")) Is Nothing Then Cancel = True For Each Zelle in Intersect(Target, Range("A:A")) Zelle.Value = IIF(Zelle.Value = "", "x", "") Next End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim rC As Range If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub Cancel = True For Each rC In Intersect(Target, Columns(1)) If IsEmpty(rC) Then rC = "x" Else rC.ClearContents End If Next rC End Sub

Beliebteste Forumthreads (12 Monate)

Worksheet_BeforeRightClick then...

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

48 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Worksheet_BeforeRightClick then...

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

48 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread