Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Mehrere OptionButton In Userform

Mehrere OptionButton In Userform
Fredy
Hallo alle
Ich suche Ein Code für Mehrere OptionButton.
Und Zwar ist es wie ein Frage Bogen Eine Frage Zwei Antworten Ja oder Nein
Also Datum Kundennummer Dan 10 Fragen und Dan mit CommandButton in Tabellenblatt Eintragen
Das Eintragen Ist Kein Problem nur die OptionButton fehlen
https://www.herber.de/bbs/user/74013.xlsm
Für Hilfe Danke ich schon im Voraus
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mehrere OptionButton In Userform
18.03.2011 10:56:42
Hajo_Zi
Hallo Fredy,
in der Werkzeugkiste gibt es doch OptionsButton, hast Du die übersehen?
Ordne den OptionsButton die zusammengehören eine Gruppe zu.
Gruß Hajo
AW: Mehrere OptionButton In Userform
18.03.2011 10:59:04
ransi
HAllo
Gottseidank hast du die OptionButtons nicht umbenannt.
So kannst du einen Zähler drüberlaufen lassen.
Versuch mal so:
' **********************************************************************
' Modul: auf_trag Typ: Userform
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
    Dim zelle As Long
    Dim I As Integer, Z As Integer, Antwort As String
    With Worksheets("Auftrag")
        zelle = .Cells(Rows.Count, 4).End(xlUp).Row + 1
        .Cells(zelle, 3) = TextBox1
        .Cells(zelle, 4) = TextBox2
        Z = 1
        For I = 5 To 14
            Antwort = "Nein" 'Standardantwort
            If Me.Controls("OptionButton" & Z) = True Then Antwort = "Ja"
            .Cells(zelle, I) = Antwort
            Z = Z + 2
        Next
    End With
End Sub


ransi
Anzeige
AW: Mehrere OptionButton In Userform
18.03.2011 11:06:26
Fredy
Jupp Cool geht wunderbar Danke Schön
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Mehrere OptionButtons in Userforms richtig nutzen


Schritt-für-Schritt-Anleitung

  1. Userform erstellen: Öffne Excel und gehe zu den Entwicklertools. Erstelle eine neue Userform.

  2. OptionButtons hinzufügen: Ziehe mehrere OptionButton-Steuerelemente aus der Werkzeugkiste auf die Userform. Diese repräsentieren die Antworten (z.B. Ja/Nein).

  3. Gruppierung: Stelle sicher, dass die OptionButtons, die zusammengehören, in eine Gruppe eingeordnet werden. Du kannst dafür ein Frame-Steuerelement verwenden.

  4. Code hinzufügen: Doppelklicke auf den CommandButton, um das Codefenster zu öffnen, und füge folgenden Code ein:

    Private Sub CommandButton1_Click()
       Dim zelle As Long
       Dim I As Integer, Z As Integer, Antwort As String
    
       With Worksheets("Auftrag")
           zelle = .Cells(Rows.Count, 4).End(xlUp).Row + 1
           .Cells(zelle, 3) = TextBox1
           .Cells(zelle, 4) = TextBox2
           Z = 1
           For I = 5 To 14
               Antwort = "Nein" ' Standardantwort
               If Me.Controls("OptionButton" & Z) = True Then Antwort = "Ja"
               .Cells(zelle, I) = Antwort
               Z = Z + 2
           Next
       End With
    End Sub
  5. Testen: Starte die Userform und teste die Funktionsweise. Fülle die Textboxen aus und klicke auf den CommandButton, um die Daten in das Tabellenblatt einzutragen.


Häufige Fehler und Lösungen

  • Fehler: OptionButtons sind nicht auswählbar.

    • Lösung: Überprüfe, ob die OptionButtons in einer Gruppe (z.B. in einem Frame) angeordnet sind.
  • Fehler: Daten werden nicht korrekt eingetragen.

    • Lösung: Stelle sicher, dass der Code den richtigen Arbeitsblattnamen verwendet und die Referenzen stimmen.

Alternative Methoden

Falls Du keine Userform nutzen möchtest, kannst Du auch direkt in einer Excel-Tabelle Daten mit Dropdown-Listen erfassen. Das geht so:

  1. Wähle die Zelle aus, in der Du die Auswahl treffen möchtest.
  2. Gehe zu "Daten" > "Datenüberprüfung".
  3. Wähle "Liste" und gib die Optionen (z.B. Ja, Nein) ein.
  4. Klicke auf OK.

Damit erhältst Du eine einfache Möglichkeit, die Antworten zu erfassen, ohne VBA-Code zu verwenden.


Praktische Beispiele

Hier ist ein Beispiel, wie Du mehrere Fragen mit OptionButtons in einer Userform organisieren kannst:

  • Frage 1: "Möchten Sie ein Angebot?"

    • Ja (OptionButton1)
    • Nein (OptionButton2)
  • Frage 2: "Sind Sie mit unserem Service zufrieden?"

    • Ja (OptionButton3)
    • Nein (OptionButton4)

Diese Struktur kannst Du in Deiner Userform leicht erweitern und anpassen.


Tipps für Profis

  • Verwende OptionButton-Arrays: Wenn Du viele OptionButtons hast, kannst Du diese in einem Array organisieren, was den Code vereinfacht.
  • Verwende Select Case: Anstatt viele If-Anweisungen zu verwenden, kann ein Select Case-Block die Lesbarkeit des Codes verbessern.
  • Datenvalidierung: Stelle sicher, dass die Daten, die Du in die Tabelle eingibst, validiert werden, um Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie viele OptionButtons kann ich in einer Userform verwenden?
Du kannst so viele OptionButtons hinzufügen, wie Du benötigst, solange die Userform nicht überladen wirkt.

2. Kann ich die OptionButtons dynamisch erstellen?
Ja, Du kannst OptionButtons zur Laufzeit mit VBA erstellen, wenn Du diese flexibel gestalten möchtest.

3. Welche Excel-Version ist erforderlich?
Die beschriebenen Funktionen sind in Excel 2010 und höheren Versionen verfügbar.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige