Guten morgen an das Team vom Forum
Habe da nochmals eine Frage:
Besteht die Möglichkeit dieses VBA so zu verändern, das man anstatt Mod 2 als leer erscheint und nach dem ersten Doppelklick erst eine 1 erscheint und beim nächsten Doppelklick die 2 und nach dem dritten Doppelklick wieder die leer erscheint?
Dies ist jetzt nur für die Zelle J3, müsste dies aber für die Zellen J2 bis K 68 erstellen. Gibt es hierfür auch eine Lösung oder muss man diesen Vorgang für jede Zelle wiederholen?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Unprotect
If Not Intersect(Target, Range("j3")) Is Nothing Then
Cancel = True
Range("j3") = Range("j3").Value Mod 2 + 1
End If
If Not Intersect(Target, Range("j3")) Is Nothing Then
End If
ActiveSheet.Protect
End Sub
Wäre ganz toll wenn mir jemand einen Vorschlag oder eine Lösung zukommen lassen würde.
Gruß Adde