Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Haken bei Doppelklick / nur ein Feld anwählbar !

Haken bei Doppelklick / nur ein Feld anwählbar !
31.10.2016 13:03:47
Erik
Hallo zusammen,
ich habe folgenden VBA Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("D28,D30,D32,D34,M28")
If Intersect(rng, Target) Is Nothing Then Exit Sub
Cancel = True
If Target = "X" Then
Target = ""
Else
Target = "X"
Target.HorizontalAlignment = xlCenter
End If
End Sub
Wie muß ich diesen abändern, damit nur ein Feld anwählbar ist ?
Entweder sollen die anderen Felder gesperrt bleiben bis das ausgewählt Feld wieder abgewählt wird, oder was noch besser wäre, das angewählt Feld wird bei anklicken eines neuen Feldes automatisch gelöscht.
Gruß
Erik

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Haken bei Doppelklick / nur ein Feld anwählbar !
31.10.2016 13:54:08
Daniel
Hi
im prinzip so:
a) Optionbuttonverhalten, dh das X wird immer in die angeklickte Zelle geschrieben, dh die Auswahl "keine Zelle" ist nachträglich nicht möglich:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("D28,D30,D32,D34,M28")
If Intersect(rng, Target) Is Nothing Then Exit Sub
Cancel = True
rng.ClearContents
rng.HorizontalAlignment = xlCenter
Target = "X"
End Sub
b) es kann auch abgewählt werden:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Check as boolean
Set rng = Range("D28,D30,D32,D34,M28")
If Intersect(rng, Target) Is Nothing Then Exit Sub
Cancel = True
Check = (Target = "X")
rng.ClearContents
rng.HorizontalAlignment = xlCenter
If Check Then
Target = ""
Else
Target = "X"
End If
End Sub
gruß Daniel
Anzeige
AW: Haken bei Doppelklick / nur ein Feld anwählbar !
31.10.2016 14:13:08
Erik
Hallo Daniel,
vielen Dank !
Es funktioniert.
Gruß
Erik

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige