der nachfolgende Code wurde mir hier aus dem Forum zur Verfügung gestellt. Er läuft auch soweit tadellos. Nun würde ich noch gerne eine Änderung erreichen. Auf dem UF befinden sich div. OptionButton. Wäre denkbar, dass in Spalte U der jeweiligen Zeile noch der Text "Ja" eingefügt wird, wenn OptionButton 24-35 aktiv oder "Nein" bei OptionButton 42-52 und in allen anderen Fällen ein "offen" eingetragen wird?
Danke schon jetzt für die Rückmeldung.
Herzliche Grüße - Wolfgang
Private Sub CommandButton1_Click()
Dim ctrElement As Control
For Each ctrElement In Me.Controls
If TypeName(ctrElement) = "OptionButton" Then
'trägt den Text des OptionButton in Spalte K - markierte Zelle ein
If ctrElement = True Then
Selection = ctrElement.Caption
'sorgt dafür, dass der Text unter Tags in der Multipage in Spalte C übernommen wird _
abschluss etc.
Cells(Selection.Row, 3).Value = MultiPage1(MultiPage1.Value).Tag
Exit For
End If
End If
Next ctrElement
Unload Me
End Sub