HERBERS Excel-Forum - die Dialoge

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. Werte auslesen und eintragen
  • 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