If ob_niedrig.Visible = True Then
tbl.DataBodyRange(Zeile, 7).Value = txb_PreisNiedrig.Value
tbl.DataBodyRange(Zeile, 3).Value = "niedrig"
ElseIf ob_mittel.Visible = True Then
tbl.DataBodyRange(Zeile, 7).Value = txb_PreisMittel.Value
tbl.DataBodyRange(Zeile, 3).Value = "mittel"
ElseIf ob_hoch.Visible = True Then
tbl.DataBodyRange(Zeile, 7).Value = txb_PreisHoch.Value
tbl.DataBodyRange(Zeile, 3).Value = "hoch"
Else: MsgBox ("Hier passt absolut nichts!")
End If
Es handelt sich hier um drei untereinander liegende OptionButton - welche jeweils ein Textfeld nebendran haben. Die Textfelder werden aus einer Datenbank korrekt gefüllt.
In der Userform soll man jetzt eine dieser OptionButton eben auf WAHR stellen und mit diesem Code soll er dann anschließend die Textbox rechts von dem OptionButton in eine andere Tabelle übertragen. Die Übertragung an sich funktioniert auch. Allerdings überträgt er mir mit meinem Code nie den richtigen Wert sondern bleibt egal bei welcher Auswahl der OptionButton bei txb_PreisNiedrig.Value hängen.... ???
Habe mir Zeitgleich noch unten das als Msgbox mal ausgeben lassen. Dort zeigt er auch wunderbar an was wahr und falsch ist.
Weis jemand wieso dieser an sich simple Code nicht funktioniert?
Könnte das auch über eine ComboBox lösen aber möchte irgendwie jetzt schon wissen was an der Sache hier falsch ist :)
Danke für Hilfe und viele Grüße
Simon