Auswahl aus Userform in Textbox übernehmen

Hallo zusammen,
ich habe eine Userform, die einen Rahmen enthält, der mit einer variablen Anzahl von Optionbuttons automatisch bestückt wird. Bei Anklicken eines Optionbuttons soll der die Nummer des Optionsbuttons in einer Textbox auf derselben Userform erscheinen.
Ich hab das Problem bislang damit gelöst, dass die Daten der Optionbuttons in der Textbox erschienen, sobald der Anwender den OptionButton aktiviert und auf einen CommandButton "Übernehmen" geklickt hat.
Wie im ersten Absatz beschrieben, wär's schöner. Hat jemand eine Idee? Genau genommen müsste ich nur einen Mausklick auf den OptionButtons abfragen, die Prüfungsroutine, welcher OptionButton aktiviert ist, habe ich fertig. Ich scheitere momentan daran, dass eine Abfrage mit "Private Sub Userform_MouseDonw(ByVal Button As Integer, ByVal shift As Integer, ByVal x As Single, ByVal y As Single" bislang nur zu einem Ergebnis führt, wenn der Mausklick direkt auf der Userform erfolgt. Sobald auf die OptionButtons, die sich wie oben beschrieben in einem Rahmen auf der Userform befinden, erhalte ich keine Reaktion.
Danke für die Hilfe.
Stephan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Heureka! Als Einzellösung funktioniert es, habe aber noch folgendes Problem:
Die Klasse enthält folgenden Code:
Option Explicit
Public WithEvents OpB As MSForms.OptionButton


Private Sub OPB_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single,  _
ByVal y As Single)
MsgBox OpB.Name & " " & vbCrLf & " " & OpB.Parent.Name
End Sub

_________________________________________________________________
Meine Userform hat diesen Code:
Option Explicit
Dim varOB() As New clsControls


Private Sub userfomr_Initialize()
Dim L As Integer
Dim ctrl As MSForms.Control
Dim objOB As MSForms.OptionButton
For Each ctrl In Me.Controls
Select Case TypeName(ctrl)
Case "OptionButton"
ReDim Preserve varOB(L)
Set varOB(L).OpB=ctrl
L=L+1
End Select
Next
End Sub

Wenn ich jetzt an den Code der Userform folgende Ergänzung anfüge, kriege ich in der Zeile "set datei ..." die Fehlermeldung "Variable nicht definiert".


Private Sub UserForm_Activate()
set datei3 = Excel.Application.Workbooks("Dateiname.xls").Sheets("Tabellenblatt")
with datei 3
For A = 1 to 100
Next
Msgbox A
End With
End Sub

Mal abgesehen davon, dass dies hier nur ein wenig geistreicher Code ist, habe ich keine Erklärung für die Fehlermeldung. Was mache ich falsch?
Danke.
Stephan

Beliebteste Forumthreads (12 Monate)

Auswahl aus Userform in Textbox übernehmen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auswahl aus Userform in Textbox übernehmen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread