Guten Morgen,
danke schonmal für euere Hilfe. Sorry, dass ich den anderne Code vergessen habe zu posten. Hier nochmal genauer das Problem.
Also der Wert des Button soll schon als globale Variable in einem anderen Modul/Sub verwendet werden. Das beginnt folgendermaßen:
Public Sub Berechnung()
Dim button As Integer
Dim Mld, antwort
If button = 0 Then
Mldg = "Bitte eine Option auswählen."
antwort = MsgBox(Mldg, vbCritical, "Eingabefehler")
Exit Sub
End If
Da gibt er mit dann die eingegebene Fehlermeldung aus. Später wird der button dann auch mit der If-Funktion verwendet, um je nach Wert Berechnungen auszuführen (ich denke aber mal, dass der Fehler nicht dort liegt, da ja bei mir am Anfang der Fehler kommt, dass die definierte Variable button keinen Wert hat). Falls doch notwendig, poste ich natürlich auch noch weiter Code-Teile.
Ich habe mit den Sub von GraFri (danke!) bei der Auswahl der Buttons jeweils eine Medlung bekommen mit dem Wert. Also das Auswählen an sich funktioniert dann wohl schonmal. Dann liegt es scheinbar an der Übernahme der Varaiblen in dem Sub zur weiteren Berechnung.
Das oben gepostete Sub habe ich im Modul1 angelegt. Die Subs zum OptionButton_Click werden von Ecxel soweit ich das richtige sehe direkt in der Tabelle abgelegt. Ich habe jetzt sowohl im Modul als auch in den Codes zu den Optionsfeldern die Variable button as Integer definiert.
Freue mich sehr über weitere Ratschläge.
Gruß Katrin
|