Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

In USF aktiven OPTButton löschen | Herbers Excel-Forum


Betrifft: In USF aktiven OPTButton löschen von: reinhardt springer
Geschrieben am: 09.01.2010 15:50:50

Hallo,
ich habe eine Userform mit Optionbuttons, wo ich etwas anwähle, und später auch noch Text in die Tabelle eintrage.

Die Buttons laden sich über
Worksheets("Inhalt").Select
OptButton_Tabelle1.Caption = Worksheets("Daten").Range("a5")
OptButton_Tabelle2.Caption = Worksheets("Daten").Range("a6")

Übertragen wird mit
Cells(MyRow, 1).Value = Me.TextBox1.Text
Cells(MyRow, 2).Value = Me.ComboBox1.Text

Die Textboxen gelöscht über
Me.TextBox1.Text = ""
Me.ComboBox1.Text = ""

Frage: Wie lösche ich nach einem Durchlauf den noch aktivierten Optionbutton in der Userform?

Gruß Reinhardt

  

Betrifft: AW: In USF aktiven OPTButton löschen von: Nepumuk
Geschrieben am: 09.01.2010 16:28:44

Hallo Reinhart,

so:

Dim objControl As Control
For Each objControl In Controls
    If TypeOf objControl Is MSForms.OptionButton Then objControl.Value = False
Next

Gruß
Nepumuk


Beiträge aus den Excel-Beispielen zum Thema "In USF aktiven OPTButton löschen"