Hallo zusammen,
stehe vor folgendem Problem!
in meiner Excelmappe ein Makro mit dem eine Userform geöffnet wird
in diesem Fenster hab ich einmal diese Multiseiten eingefügt mit ungefähr 5 oder 6 Seiten eingefügt, und dazu in dieser Userform unterhalb der Multiseiten einen commandbutton!
Auf jeder der einzelnen Multiseiten befinden sich 2 Gruppen von Optionbuttons, beide mit Frame um je seite und je frame einen Optionbutton auswählen zu können...
Beim klicken auf den Commandbutton soll dann ein Makro gestartet werden, dass alle Optionbuttons "abfragt" und dann einer variable entsprechende Werte zuweist ob in Frame1 button 1, 2, 3, 4 und in Frame 2 eben button 1 2, 3, 4 oder 5 ausgewählt ist!
der variable a soll dann eben ein wert von 1 - 4 under variable b einer von 1 - 5 zugewiesen werden!
Ich habs jetz vorerst mal mit ner if abfrage versucht, klappt aber nicht so ganz und ein fehler "Objekt unterstützt diese methode oder eigenschaft nicht" ...
' Standard Aufstellung Position
If UserForm2.MultiPage1.Frame2.OptionButton5.Value = True Then
positionStandard = "LW"
ElseIf UserForm2.MultiPage1.Frame2.OptionButton6.Value = True Then
positionStandard = "C"
ElseIf UserForm2.MultiPage1.Frame2.OptionButton7.Value = True Then
positionStandard = "RW"
ElseIf UserForm2.MultiPage1.Frame2.OptionButton8.Value = True Then
positionStandard = "LD"
ElseIf UserForm2.MultiPage1.Frame2.OptionButton9.Value = True Then
positionStandard = "RD"
Else: positionStandard = ""
End If
' Standard Aufstellung Reihe
If UserForm2.MultiPage1.Frame1.OptionButton1.Value = True Then
reiheStandard = 1
ElseIf UserForm2.MultiPage1.Frame1.OptionButton2.Value = True Then
reiheStandard = 2
ElseIf UserForm2.MultiPage1.Frame1.OptionButton3.Value = True Then
reiheStandard = 3
ElseIf UserForm2.MultiPage1.Frame1.OptionButton4.Value = True Then
reiheStandard = 4
Else: reiheStandard = ""
End If
gilt eben nur für eine Seite, klappt aber so leider schon nicht :(
wenn ich des frame rausnehme, läufts zwar durch, aber macht einfach gar nichts, :/
jemand nen tipp für mich?
danke im vorraus und grüße
emanuel burger