Checkbox Werte übergeben
06.09.2007 18:35:00
Michael
ich möchte mit einer Userform mit Checkboxen dem Benutzer ermöglichen, den Ablauf eines Moduls zu bestimmen. Soweit bin ich:
Der Codeabschnitt im Hauptmodul:
Sub HauptModul()
'Abfrage
frmAuswahl.Show
End Sub
Der Code der Userform frmAuswahl, die 10 Checkboxen, eine „Abbrechen“ und eine „Weiter“ Schaltfläche hat:
Private Sub cmdAbbrechen_Click()
Unload frmAuswahl
MsgBox "Goto ZeilenMarke"
End Sub
Private Sub cmdWeiter_Click()
Dim i As Byte
Dim checkboxWert(1 To 10) As Boolean
For i = 1 To 10
checkboxWert(i) = Controls("CheckBox" & r).Value
Next i
Unload frmAuswahl
End Sub
Nach cmdAbbrechen_Click() soll die Ausführung an einer bestimmten Zeilenmarke des Hauptmoduls fortgesetzt werden.
Die Wahrheitswerte der Checkboxen sollen in dem Array checkboxWert() nun an das Hauptmodul übergeben werden.
Wie macht man das? Oder geht das alles noch viel einfacher?
Dank & Gruß,
Michael
Anzeige