Code ändern doppelklick

Hallo zusammen,
ich habe diesen Code.Wenn ich doppelklicke dann macht er mir einen Haken rein:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("d2:d20000"), Target) Is Nothing And _
Not Target.Cells.Count > 1 Then
If Target.Value = "ü" Then
Target.Value = ""
Else: Target.Value = "ü"
End If
End If
End Sub

Ich möchte jetzt auch auch noch a2:a20000 und G2:G20000
wie ändere ich das ab ?
dies geht leider nicht:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("d2:d20000"), Target) Is Nothing And _
Not Target.Cells.Count > 1 Then
If Target.Value = "ü" Then
Target.Value = ""
Else: Target.Value = "ü"
End If
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A2:A20000"), Target) Is Nothing And _
Not Target.Cells.Count > 1 Then
If Target.Value = "ü" Then
Target.Value = ""
Else: Target.Value = "ü"
End If
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("g2:g20000"), Target) Is Nothing And _
Not Target.Cells.Count > 1 Then
If Target.Value = "ü" Then
Target.Value = ""
Else: Target.Value = "ü"
End If
End If
End Sub

Danke für eure Hilfe
Tim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("a2:a20000,d2:d20000,g2:g20000"), Target) Is Nothing Not Target.Cells.Count > 1 Then If Target.Value = "ü" Then Target.Value = "" Else: Target.Value = "ü" End If End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("a2:a20000,d2:d20000,g2:g20000"), Target) Is Nothing And _ Not Target.Cells.Count > 1 Then If Target.Value = "ü" Then Target.Value = "" Else: Target.Value = "ü" End If End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A:A, D:D, G:G"), Rows("2:20000"), Target) Is Nothing And Not Target. _ Cells.Count > 1 Then Cancel = True Target = IIf(Target = "ü", "", "ü") End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A:A, D:D, G:G"), Rows("2:20000"), Target) Is Nothing Then Cancel = True Target = IIf(Target = "ü", "", "ü") End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Count = 1 Then Select Case Target.Column Case 1, 4, 7 Select Case Target.Row Case 2 To 20000 If Target.Value = "ü" Then Target.Value = "" Else Target.Value = "ü" End If Cancel = True End Select End Select End If End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread