Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen

OptionButton nicht als Wahr/Falsch auslesen


Betrifft: OptionButton nicht als Wahr/Falsch auslesen von: Heinz
Geschrieben am: 23.01.2018 13:49:43

Liebe Excel-Helfer

in einer Userform habe ich innerhalb eines Frames 2 OptionButton.

Beim Übertragen der Werte aus der Userform in die Tabelle "Daten" erhalte ich mit
Sheets("Daten").Cells(zeile, 1) = OptionButton1.Value
entweder ein "WAHR" oder "FALSCH".

Wie muss es heissen, damit es entweder "Name_1" oder "Name_2" ausgibt (ohne Hilfsspalte)?

Besten Dank für Euren Support!

Freundliche Grüsse
Heinz

  

Betrifft: AW: OptionButton nicht als Wahr/Falsch auslesen von: Daniel
Geschrieben am: 23.01.2018 13:58:40

HI
statt Frame + 2 x Optionbutton eine List- oder Combobox mit 2 Einträgen verwenden.
dann kannst du dir über die .Value-Eigenschaft der Box den Wert direkt ausgeben lassen.

Sheets("Daten").Cells(zeile, 1) = Listbox1.Value
Gruß Daniel


  

Betrifft: AW: OptionButton nicht als Wahr/Falsch auslesen von: Heinz
Geschrieben am: 23.01.2018 14:09:58

Hallo Daniel

Danke für Deinen Rat!
Ich werde diesen so befolgen.

Gruss Heinz


  

Betrifft: AW: OptionButton nicht als Wahr/Falsch auslesen von: Daniel
Geschrieben am: 23.01.2018 14:17:41

Bei Verwendung von Optionbuttons müsstest du jeden Wert Box einzeln abfragen:

If Optionbutton1 then
    sheet("Daten").Cells(Zeile, 1) = "Wert 1"
Elseif Optionbutton2 then
    Sheets("Daten").Cells(Zeile, 1) = "Wert 2)
Else
end if
Gruß Daniel


  

Betrifft: AW: OptionButton nicht als Wahr/Falsch auslesen von: Heinz
Geschrieben am: 23.01.2018 14:43:31

Super Daniel!

genau so hatte ich es mir vorgestellt!
Danke!


  

Betrifft: oder Select Case von: Rudi Maintaire
Geschrieben am: 23.01.2018 15:17:33

Hallo,

Select Case True
  Case Optionbutton1: Sheets("Daten").Cells(Zeile, 1) = "Wert 1"
  Case Optionbutton2: Sheets("Daten").Cells(Zeile, 1) = "Wert 2"
End Select

oder noch besser den Auszugebenden Wert in die Caption des Buttons schreiben
Select Case True
  Case Optionbutton1: Sheets("Daten").Cells(Zeile, 1) = Optionbutton1.Caption
  Case Optionbutton2: Sheets("Daten").Cells(Zeile, 1) = Optionbutton2.Caption
End Select
Gruß
Rudi


  

Betrifft: AW: oder Select Case von: Heinz
Geschrieben am: 24.01.2018 11:36:46

Hallo Rudi

genial!
vielen Dank!

Gruss Heinz


Beiträge aus dem Excel-Forum zum Thema "OptionButton nicht als Wahr/Falsch auslesen "