Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Haken bei Doppelklick / nur ein Feld anwählbar !

Forumthread: 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
Anzeige

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
;
Anzeige
Anzeige

Infobox / Tutorial

Haken bei Doppelklick: Nur ein Feld anwählbar


Schritt-für-Schritt-Anleitung

Um das Verhalten zu implementieren, dass nur ein Feld mit einem Haken (X) ausgewählt werden kann, kannst du den folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass bei einem Doppelklick in die definierten Zellen D28, D30, D32, D34 und M28 entweder ein Haken gesetzt oder entfernt wird. Zudem wird, wenn ein neues Feld angeklickt wird, der Haken im vorherigen Feld automatisch gelöscht.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Wähle das entsprechende Arbeitsblatt aus, in dem du den Code anwenden möchtest.
  3. Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim rng As Range
    Dim 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
  1. Schließe den VBA-Editor und teste das Verhalten in deinem Arbeitsblatt.

Häufige Fehler und Lösungen

  • Fehler: Der Haken wird nicht gesetzt oder entfernt.

    • Lösung: Überprüfe, ob die Zellen D28, D30, D32, D34 und M28 korrekt in der Set rng-Zeile definiert sind.
  • Fehler: Doppelklick funktioniert nicht.

    • Lösung: Stelle sicher, dass das Arbeitsblatt nicht geschützt ist und der VBA-Code korrekt im richtigen Arbeitsblattmodul eingefügt wurde.

Alternative Methoden

Anstelle von VBA kannst du auch Formeln oder bedingte Formatierungen verwenden, um ähnliche Ergebnisse zu erzielen. Zum Beispiel könntest du Kontrollkästchen aus der Entwicklertools-Leiste verwenden, um eine Auswahl zu ermöglichen. Dies bietet eine benutzerfreundliche Oberfläche, erfordert jedoch mehr manuelles Setup.


Praktische Beispiele

Wenn du den oben beschriebenen Code anwendest, wird es dir ermöglichen, nur ein Feld in deinem Excel-Dokument auszuwählen. Das kann in Anwendungen wie Umfragen, Feedback-Formularen oder Auswahlmenüs nützlich sein, wo nur eine Option gleichzeitig aktiv sein sollte.


Tipps für Profis

  • Verwendung von Datenüberprüfung: Um sicherzustellen, dass nur bestimmte Werte in die Zellen eingegeben werden können, verwende die Datenüberprüfungsfunktion in Excel. Dies kann in Kombination mit dem VBA-Code verwendet werden, um die Benutzererfahrung zu verbessern.
  • Zellen formatieren: Nutze die Formatierungsoptionen, um die Zellen visuell hervorzuheben, in denen Haken gesetzt werden können. Das macht die Nutzung intuitiver.

FAQ: Häufige Fragen

1. Kann ich den Code für andere Zellen anpassen? Ja, ändere einfach die Zellreferenzen in der Set rng-Zeile, um die gewünschten Zellen einzuschließen.

2. Funktioniert dieser Code in Excel 2016 und neueren Versionen? Ja, der Code sollte in Excel 2016, 2019 und der Microsoft 365-Version problemlos funktionieren.

3. Was passiert, wenn ich das Arbeitsblatt schütze? Wenn das Arbeitsblatt geschützt ist, musst du sicherstellen, dass der VBA-Code das Entsperren der Zellen berücksichtigt, um eine reibungslose Nutzung zu gewährleisten.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige