HERBERS Excel-Forum - die Beispiele

Thema: Auslesen des ausgewählten Optionsfeldes in einer UserForm

Home

Gruppe

Dialog

Problem

Wie kann ich feststellen, welches Optionsfeld in einer UserForm aktiviert wurde?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmAuslesen

Private Sub cmdAuslesen_Click()
   Dim cnt As Control
   Dim iCounter As Integer
   For Each cnt In Controls
      If TypeName(cnt) = "OptionButton" Then
         iCounter = iCounter + 1
         If cnt.Value = True Then Exit For
      End If
   Next cnt
   MsgBox "Optionsfeld Nr. " & iCounter & _
      " wurde ausgewählt!"
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmAuslesen.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und OptionButton

xlDialogInsertHyperlink.show OptionButton zur Auswahl
Optionbutton zweimal klicken Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog Speichern unter Dialog in Word aufrufen inkl. Pfad
Druckerdialog Dateityp im "Speichern unter"-Dialog vorgeben
Makro stoppen, wenn Excel-Dialog? xlDialogOpen anpassen
Wurde Optionbutton in Frame gewählt? Klick in definierten Rangebereich startet Dialog
xlDialogOpen bei Excel 2007 funzt nicht FileDialog inkl. Anklicken von Desktop, Eigene D.
OptionButton Gruppe Grösse Dialogfenster der InputBox
Dialogfeld unterdrücken Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr OptionButton GroupName variabel festlegen
Dialog "Verknüpfung aktualisieren" Ordnerdialog und Dateidialog
Ordnerdialog und dateidialog Ordnerdialog und Dateidialog
Filedialog Herber/Beispiele/Dialoge/Checkbox/137601
Ranges mit optionbuttons verbinden? Abhängigkeit zwischen 2 Gruppen mit OptionButtons
Bilder bei Click im Dialogfeld Suchdialog über VBA aufrufen
mit Wert aus Combobox Dialog öffnen Diagramm als Grafik mit Speicherdialog exportieren
Änderung von OptionButtons nur per Passwort Dialogfenster zum kopieren
Textboxinhalt in Abhängigkeit von OptionButtons FileDialog-Objekt unter O2k
Abrage von Dialogfeldargumenten Optionbutton deaktivieren
OptionButtons in Tabelle Optionbutton aktiv bei Wert auf Textbox1
OptionButton Datei Auswählen Dialog (Application.FileDialog)
xlDialogOpen/FindFile ohne Open Optionbutton Aktiv bei Grade oder Ungrade
Dialogfeld zum pdf öffnen frage optionbutton up/down ?
Dialogfeld schließen, wenn Benutzer nichts eingibt Problem mit ApplicationDialogs
Das Dialogfeld "sortieren" aufrufen? Keine Dialogbox bei SaveAs