Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahlbutton - Optionsbutton

Forumthread: Auswahlbutton - Optionsbutton

Auswahlbutton - Optionsbutton
09.06.2024 16:52:18
Stephan
Hallo Zusammen,

ich habe eine Userform gebaut mit zwei Auswahlkriterien. Nun benötige ich noch ein drittes. Leider kann ich es nicht einfach hinzufügen, denn da bekomme ich einen Fehler. Weiß jemand Rat. Würde mich freuen. Grüße Stephan

https://www.herber.de/bbs/user/170035.xlsm
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahlbutton - Optionsbutton
09.06.2024 17:34:37
Alwin Weisangler
Hallo,

eine von diversen Möglichkeiten: 


Private Sub btnanlegen_Click()

    Dim i&, arrOpt(), arrFarbe(): arrOpt = Array("optrot", "optgelb", "optgrün"): arrFarbe = Array("rot", "gelb", "grün")

    For i = 0 To UBound(arrOpt)

        If Controls(arrOpt(i)) = True Then Daten.ListObjects("Tabelle").ListRows.Add.Range(, 2) = arrFarbe(i)

    Next i

End Sub


Gruß Uwe
Anzeige
AW: Auswahlbutton - Optionsbutton
09.06.2024 17:35:51
AlterDresdner
Hallo Stephan,
du vergehst dich gröblichst gegen die Syntax von IIf(Bedingung; wenn, sonst).
Eine mögliche Konstruktion wäre 
Private Sub btnanlegen_Click()

Dim farbe

With Daten.ListObjects("Tabelle").ListRows.Add

  farbe = "rot"

  If Me.optgelb Then farbe = "gelb"

  If Me.optgrün Then farbe = "grün"

  .Range(, 2).Value = farbe

  '.Range(, 2).Value = IIf(optrot, "rot", "gelb", "grün")

'.Range(, 2).Value = IIf(optrot, "rot", "gelb")

End With

Unload Me

End Sub

Das Ganze könnte man auch eleganter mit dem Change-Ereignis der opt..._Buttons lösen.
Gruß der AlteDresdner
Anzeige
AW: Auswahlbutton - Optionsbutton
09.06.2024 17:52:37
Stephan
Hallo Alwin, hallo AlterDresdner,

vielen Dank für eure Lösungen. Das IIF nur zwei Optionen haben dar, habe ich auch kapiert. Einzig bei euren beiden Lösungen wird immer eine Zeile in der Tabelle leergelassen. Sonst funktionieren Sie super. Da ich noch andere Werte eintragen möchte, ist die Leerzeile nicht so optimal. Wie kann ich das abstellen? Grüße Stephan
Anzeige
AW: Auswahlbutton - Optionsbutton
09.06.2024 17:55:12
Stephan
Hallo Uwe, hallo AlterDresdner,

ich habe es. Habe zwei den Code ListRows.Add drin hatte. Selbst Schuld. Ich danke euch. Schönen Sonntag. Grüße Stephan
AW: Auswahlbutton - Optionsbutton
10.06.2024 09:24:46
daniel
Hi
Ich haben in meinen Userformen mittlerweile alle Optionbuttons durch Listboxen oder Comboboxen ausgetauscht.
Das macht die Programmierung viel einfacher, insbesondere wenn die Anzahl der Elemente variabel sein soll.
Gruß Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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