AW: auswahl über Optionsfeld in Userform
05.05.2007 07:51:00
Oberschlumpf
Hi Sandra
Mit Select Case könntest du es so versuchen:
Schreibe in ein allgemeines Modul dieses Makro
Sub Monatswahl(ByVal monat As Integer)
Select Case monat
Case 1
...dein Code
Case 2
...dein Code
Case 3
...dein Code
Case 4
...dein Code
Case 5
...dein Code
Case 6
...dein Code
Case 7
...dein Code
Case 8
...dein Code
Case 9
...dein Code
Case 10
...dein Code
Case 11
...dein Code
Case 12
...dein Code
End Select
End Sub
Und nun ruf dieses Makro im Klick-Ereignis jedes Optionbuttons auf - und zwar so:
Private Sub OptionButton1_Click()
Call Monatswahl(1)
End Sub
Private Sub OptionButton2_Click()
Call Monatswahl(2)
End Sub
...usw
Im obigen Makro mit Select Case musst du leider für jede Case-Anweisung wohl immer das selbe Codegerüst mit aber unterschiedlichen Parametern schreiben, oder? Unschön daran ist, dass sich viele Code-Zeilen wiederholen.
Du könntest dies eleganter lösen, wenn du in jeder Case-Anweisung ein weiteres Makro mit Parameterübergabe aufrufst.
So müsstest du das Code-Gerüst nur einmal schreiben, aber aufgrund der unterschiedlichen Parameter, die übergeben werden, wird der Code trotzdem immer nach Wunsch ausgeführt.
Ein Bsp dazu kann ich dir leider noch nicht liefern, da ich ja nicht weiß, was genau du nach Klick eines Optionbuttons ausführen willst.
Konnte ich helfen?
Ciao
Thorsten