Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

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


Betrifft: Opt Button Value = True durch Zellinhalt- geht nic von: Gegga
Geschrieben am: 11.01.2010 08:44:17

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

  

Betrifft: AW: Opt Button Value = True durch Zellinhalt- geht nic von: Adelhorst
Geschrieben am: 11.01.2010 09:36:50

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


      

    Betrifft: AW: Opt Button Value = True durch Zellinhalt- geht nic von: Gegga
    Geschrieben am: 11.01.2010 10:15:44

    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


      

    Betrifft: AW: Opt Button Value = True durch Zellinhalt- geht nic von: hary
    Geschrieben am: 11.01.2010 10:28:14

    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.


      

    Betrifft: AW: Opt Button Value DANKE!!!! von: Gegga
    Geschrieben am: 11.01.2010 12:39:53

    Kleine Ursache, große Wirkung!!!

    Vielen Dank, jetzt funktioniert es!!!


    Beiträge aus den Excel-Beispielen zum Thema "Opt Button Value = True durch Zellinhalt- geht nic"