Thema: Opt Button Value = True durch Zellinhalt- geht nic | Herbers Excel-Forum

Guten morgen
Versuche eine UF beim öffen über ein Tabellensheet zu füllen. Funzt alles soweit prima nur die Opt Buttons machen mich verrückt.
Was ist an diesem Syntax falsch?
Private Sub UserForm_Initialize()
If FuelleAusRow > 0 Then 'Daten aus gewählter Zeile
If Worksheets("Startsheet").Cells(FuelleAusRow, 45).Text = "X" _
Then Me.OP_WZ_EINGES_JA.Value = True
If Worksheets("Startsheet").Cells(FuelleAusRow, 46).Text = "X" _
Then Me.OP_WZ_MASCH_JA.Value = True
With Sheets("Startsheet")
TB_ROHMATERIALPREIS = .Cells(FuelleAusRow, 83).Text
TB_ROHMATERIALPREIS_DATUM = .Cells(FuelleAusRow, 84).Text [...] usw
Was passt da ned? Kann mir dabei jemand helfen?
Danke, Gruss Gegga

Hallo Gegga

If Worksheets("Startsheet").Cells(FuelleAusRow, 45).Text = "X" _
Then Me.OP_WZ_EINGES_JA.Value = True
If Worksheets("Startsheet").Cells(FuelleAusRow, 46).Text = "X" _
Then Me.OP_WZ_MASCH_JA.Value = True

Ich nehme an, daß die OptionButtons nicht die gewünschten Werte anzeigen! Oder?
Nun! Die OptionButtons haben in ihren Eigenschaften schon einen Initialwert, den man auswählen kann (siehe in der Formansicht die OptionButton-Eigenschaft: Value = True/False)
Wenn Du diese Value-Eigenschaft auf True gesetzt hast, dann sind die obigen Code-Zeilen unwirksam, denn der Value-Wert wird nie False annehmen können.
Ich denke mal, daß dies dein Problem ist! Oder?
Entweder setzt du die Value-Eigenschaft des OptionButton-Elementes in der Formansicht auf False, oder du schaffst im Code durch eine Else-Erweiterung die Möglichkeit den Value-Wert auf False zu setzen:

If Worksheets("Startsheet").Cells(FuelleAusRow, 45).Text = "X" Then
Me.OP_WZ_EINGES_JA.Value = True
Else
Me.OP_WZ_EINGES_JA.Value = False
End If
'Oder so:
Me.OP_WZ_EINGES_JA.Value = _
IIF(Worksheets("Startsheet").Cells(FuelleAusRow, 45).Text = "X", True, False)

Gruß Adelhorst

Hallo, danke für die tolle Erklärung!!!
Leider brachte sie nicht den gewünschten Erfolg.
Eigenschaften auf False gesetzt und beide Varianten ausprobiert.
Spielt da die Gross Kleinschreibung oder evtl. das Zellformat in dem Excel Sheet ne Rolle?
Greetz gegga

Hallo
Gross/klein spielt eine Rolle. Setz mit UCase den Zellinhalt innerhalb des Codes auf Gross.
Hier einfaches Beispiel.

Private Sub UserForm_Initialize()
If UCase(Worksheets("Tabelle1").Cells(1, 1).Text) = "X" Then Me.OP_WZ_EINGES_JA.Value = True
End Sub

gruss hary
sollte dan funzen.

Kleine Ursache, große Wirkung!!!
Vielen Dank, jetzt funktioniert es!!!