Optionsfelder abfragen

Forumthread: Optionsfelder abfragen

28.01.2019 10:21:09

Kevin

Guten Morgen!
Ich habe ein Dokument in dem Mitarbeiter Fragen beantworten müssen. Neben jeder Frage ist ein Gruppenfeld mit zwei Optionsfeldern, eins für "Ja" und eins für "Nein", drin. Die Mitarbeiter können also mit den Optionsfeldern die Fragen beantworten. So weit so gut.
Am Kopf des Dokumentes befinden sich ebenfalls zwei Optionsfelder, wieder eins mit "Ja" und eins mit "Nein", in einem Gruppenfeld. Nun möchte ich gerne folgende Abhängigkeit schaffen:
- Falls alle Fragen mit "Ja" beantwortet sind, soll das Optionsfeld im Kopfbereich ausgewählt werden, welches für "Ja" steht
- Sobald eine Frage "Nein" beantwortet wird, bleibt so lange das Optionsfeld "Nein" am Kopf ausgewählt, bis alle mit "Ja" beantwortet sind.
Hört sich komplizierter an als es ist...
Das Ganze soll am besten über VB realisiert werden. Notfalls, falls es anders nicht geht oder deutlich komplizierter ist, kann es auch ohne geschehen. Ich denke ich diesem Fall wird die Zell-Verknüpfung mit WAHR/FALSCH eingesetzt.
Vielen Dank :)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Optionsfelder abfragen

28.01.2019 12:55:19

UweD

AW: Optionsfelder abfragen

28.01.2019 12:55:19

UweD

Hallo
für ActiveX Buttons ginge das z.B. so


Private Sub OptionButton1_Change() 'Ja1 
    OptionButton7 = OptionButton1 * OptionButton3 * OptionButton5
    OptionButton8 = Not (OptionButton1 * OptionButton3 * OptionButton5)
End Sub
Private Sub OptionButton2_Change() 'Nein1 
    OptionButton7 = OptionButton1 * OptionButton3 * OptionButton5
    OptionButton8 = Not (OptionButton1 * OptionButton3 * OptionButton5)
End Sub
Private Sub OptionButton3_Change() 'Ja2 
    OptionButton7 = OptionButton1 * OptionButton3 * OptionButton5
    OptionButton8 = Not (OptionButton1 * OptionButton3 * OptionButton5)
End Sub
Private Sub OptionButton4_Change() 'Nein2 
    OptionButton7 = OptionButton1 * OptionButton3 * OptionButton5
    OptionButton8 = Not (OptionButton1 * OptionButton3 * OptionButton5)
End Sub
Private Sub OptionButton5_Change() 'Ja3 
    OptionButton7 = OptionButton1 * OptionButton3 * OptionButton5
    OptionButton8 = Not (OptionButton1 * OptionButton3 * OptionButton5)
End Sub
Private Sub OptionButton6_Change() 'Nein3 
    OptionButton7 = OptionButton1 * OptionButton3 * OptionButton5
    OptionButton8 = Not (OptionButton1 * OptionButton3 * OptionButton5)
End Sub

'OptionButton7=GesamtJa 
'OptionButton8=GesamtNein

LG UweD

Infobox / Tutorial

Optionsfelder in Excel abfragen und steuern

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel Optionsfelder zu abfragen und die Logik zu implementieren, kannst Du folgendes Vorgehen nutzen. Diese Anleitung basiert auf Excel VBA, um die Interaktivität der Optionsfelder zu steuern.

Erstelle ein Benutzerformular:
- Öffne den Visual Basic Editor (ALT + F11).
- Füge ein neues Benutzerformular hinzu (Rechtsklick auf "VBAProject" > "Einfügen" > "UserForm").
Füge Optionsfelder hinzu:
- Ziehe zwei Gruppenfelder (OptionGroup) auf das Formular.
- Innerhalb der Gruppenfelder platziere jeweils zwei Optionsfelder (z.B. OptionButton1 für "Ja" und OptionButton2 für "Nein").
Erstelle die Logik für die Abfragen:
- Füge folgenden Code in das Benutzerformular ein:

Private Sub OptionButton1_Change() 'Ja1
    UpdateHeaderOption
End Sub

Private Sub OptionButton2_Change() 'Nein1
    UpdateHeaderOption
End Sub

Private Sub UpdateHeaderOption()
    Dim GesamtJa As Boolean
    GesamtJa = OptionButton1.Value And OptionButton3.Value And OptionButton5.Value

    OptionButton7.Value = GesamtJa ' Ja im Kopf
    OptionButton8.Value = Not GesamtJa ' Nein im Kopf
End Sub

Teste das Formular:
- Starte das Formular (F5), um die Interaktivität zu überprüfen.

Häufige Fehler und Lösungen

Fehler: Optionsfelder reagieren nicht.
- Lösung: Stelle sicher, dass die LinkedCell-Einstellung korrekt ist. Überprüfe, ob die Optionsfelder richtig in die Gruppenfelder integriert sind.
Fehler: Kein Wert wird für das Kopfoptionsfeld festgelegt.
- Lösung: Überprüfe den Code auf logische Fehler und stelle sicher, dass die Bedingungen im UpdateHeaderOption korrekt sind.

Alternative Methoden

Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die Zell-Verknüpfung in Excel nutzen:

Setze die LinkedCell-Eigenschaft der Optionsfelder auf verschiedene Zellen.
Verwende die Funktion WENN, um die Kopfoptionen basierend auf den Zellwerten zu steuern.

Beispiel:

=WENN(A1="Ja"; "Ja"; "Nein")

Praktische Beispiele

Ein praktisches Beispiel könnte eine Umfrage sein, bei der die Mitarbeiter über die Optionsfelder „Ja“ oder „Nein“ zu verschiedenen Fragen antworten. Die Logik im VBA-Skript sorgt dafür, dass die Kopfzeile entsprechend angepasst wird, wenn alle Fragen mit „Ja“ beantwortet werden.

Tipps für Profis

Nutze OptionButton-Events effizient, um die Benutzererfahrung zu verbessern.
Teste Deine VBA-Logik gründlich, um sicherzustellen, dass alle möglichen Eingaben berücksichtigt werden.
Halte Deine VBA-Prozeduren modular, um die Wartbarkeit zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich die Optionsfelder in Excel 2016 abfragen? Du kannst die oben genannten Schritte befolgen, um die Optionsfelder abzufragen. Das VBA-Skript funktioniert in Excel 2016 genauso.

2. Kann ich die Logik auch ohne VBA implementieren? Ja, Du kannst die Zell-Verknüpfung zusammen mit Excel-Formeln nutzen, um ähnliche Ergebnisse zu erzielen.

3. Was sind ActiveX-Buttons und wie unterscheiden sie sich von normalen Optionsfeldern? ActiveX-Buttons sind erweiterte Steuerelemente in Excel, die mehr Funktionalitäten als die Standard-Optionsfelder bieten und sich besser für komplexe Anwendungen eignen.

Beliebteste Forumthreads (12 Monate)