bei Page1 = Text1, bei Page2 = Text2.....
09.12.2015 16:28:45
Wolfgang
mit nachfolgendem Code wird erreicht, dass der Bezeichnungstext eines markierten OptionButton, welcher sich auf Multiseiten befindet, in die jeweils aktive Zelle der Spalte K übernommen wird. Wie kann der Code ergänzt werden, dass ich noch in Abhängigkeit der jeweils aktiven Page in gleicher Zeile, Spalte C jeweils einen vorgegebenen Text eingegeben bekomme.
Page1 aktiv, dann Text1 in Spalte C, gleiche Zeile
Page2 aktiv, dann Text2 in Spalte C, gleiche Zeile
Page3 aktiv, dann Text3 in Spalte C, gleiche Zeile
Ich danke schon jetzt für die Rückmeldungen.
Herzliche Grüße - Wolfgang
Private Sub CommandButton1_Click()
Dim ctrElement As Control
For Each ctrElement In Me.Controls
If TypeName(ctrElement) = "OptionButton" Then
If ctrElement = True Then
Selection = ctrElement.Caption
Exit For
End If
End If
Next ctrElement
Unload Me
End Sub
Anzeige