HERBERS Excel-Forum - die Beispiele

Thema: Wert aus Optionsfelder in verschiedenen Frames auslesen

Home

Gruppe

Dialog

Problem

Die Werte von je 3 Optionfeldern in 3 Frames einer UserForm sollen ausgelesen und in die jeweils nächste Zeile der Tabelle eingetragen werden.

Lösung
Die Optionsfelder sollen nach dem Eintrag zurückgesetzt werden.
ClassModule: frmOptFrames

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim iFrm As Integer, iOpt As Integer, iRow As Integer
   iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   For iFrm = 1 To 3
      For iOpt = 1 To 3
         Cells(iRow, (iFrm - 1) * 3 + iOpt).Value = _
            Controls("Frame" & iFrm) _
            .Controls("OptionButton" & _
            (iFrm - 1) * 3 + iOpt).Value
         Controls("Frame" & iFrm) _
            .Controls("OptionButton" & _
            (iFrm - 1) * 3 + iOpt).Value = False
      Next iOpt
   Next iFrm
End Sub

StandardModule: Modul1

Sub DialogAufruf()
   frmOptFrames.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