Thema: Werte auslesen und eintragen

Home

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

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Werte auslesen und eintragen
Ablaufbeschreibung:
- Variablendeklaration
- Index der ersten freien Zelle in Spalte A an Integer-Variable übergeben
- Schleife über drei Frames bilden
- Schleife über drei OptionButtons bilden
- OptionButton-Werte in Zellen eintragen

Code:


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