Per Doppelclick Befehl ausführen
Kuhlmey
1. Per Doppelclick in Zellen der Spalte C soll in die benachbarte Zelle der Spalte D ein X geschrieben werden. Das klappt per VBA auch. Ein erneuter Doppelclick in C soll das X in D aber wieder löschen. Tut es bei mir aber nicht!?
2. Spalte C-D habe ich in dem Arbeitsblatt 6 mal. Ich möchte, dass immer nur in den Spalten C, H, M, R, W, AB, der Befehl des Doppelclick ausgeführt wird. Im Moment erstreckt sich der Befehl auf den gesamten Bereich C - AB
Hier mein VBA:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, _
Range("c2:ab45")) Is Nothing Then
If ActiveCell(0, 2) "X" Then
ActiveCell.Offset(0, 2) = "X"
End If
Else
ActiveCell.Offset(0, 2) = ""
End If
Range("A20").Select
End Sub
Freue mich über eure Hilfe
Gruss Mario
Anzeige