Opt Button Value = True durch Zellinhalt- geht nic

Forumthread: Opt Button Value = True durch Zellinhalt- geht nic

Gegga

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Opt Button Value = True durch Zellinhalt- geht nic

11.01.2010 09:36:50

Adelhorst

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

AW: Opt Button Value = True durch Zellinhalt- geht nic

11.01.2010 10:15:44

Gegga

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

AW: Opt Button Value = True durch Zellinhalt- geht nic

11.01.2010 10:28:14

hary

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.

AW: Opt Button Value DANKE!!!!

11.01.2010 12:39:53

Gegga

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

Beliebteste Forumthreads (12 Monate)

Opt Button Value = True durch Zellinhalt- geht nic

Forumthread: Opt Button Value = True durch Zellinhalt- geht nic

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread