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 Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen

optionbutton namen in zelle eintragen



Excel-Version: 10.0 (Office XP)

Betrifft: optionbutton namen in zelle eintragen
von: andreas
Geschrieben am: 06.06.2002 - 19:24:17

Hallo...

wie kann ich den jeweiligen namen des optionbutton = true in einer zelle eintragen? bisjetzt habe ich nur wahr oder falsch in einer zelle für einen optionbutton.

optionbutton1 = name1
optionbutton2 = name2
optionbutton3 = name3

z. b.: wenn optionbutton1 = true dann name1 in zelle a1 oder
wenn optionbutton2 = true dann name2 in zelle a1 usw.
die optionbutton befinden sich in einer userform.

bin für jede hilfe dankbar.

und tschüß
andreas

  

Re: optionbutton namen in zelle eintragen
von: Klaus Schubert
Geschrieben am: 06.06.2002 - 20:28:54

Hallo Andreas,

hab das nicht ganz verstanden, aber hier vielleicht Lösungen.
Kopiere diesen Code in deine Userform und der Name wird sofort
beim Anklicken eines OptionButton in Zelle A1 eingetragen:


Private Sub OptionButton1_Click()
Range("a1") = "Name 1"
End Sub

Private Sub OptionButton2_Click()
Range("a1") = "Name 2"
End Sub

Private Sub OptionButton3_Click()
Range("a1") = "Name 3"
End Sub


Möchtest du allerdings die Bezeichnung des OptionButton übernehmen, 
die du dem OptionButton zugeordnet hast, muss der Code so heißen:

Private Sub OptionButton1_Click()
Range("a1") = OptionButton1.Caption
End Sub

Private Sub OptionButton2_Click()
Range("a1") = OptionButton2.Caption
End Sub

Private Sub OptionButton3_Click()
Range("a1") = OptionButton3.Caption
End Sub


War es das, was du wissen wolltest ?

Gruß Klaus

  

Re: optionbutton namen in zelle eintragen
von: andreas
Geschrieben am: 06.06.2002 - 20:42:01

entschuldigung, habe mich doch falsch ausgedrückt.

ich wähle in einer uf einen optionbutton aus, bei click eines commandbutton soll der jeweilige optionbutton.name in eine zeile der spalte a eingetragen werden. bei jedem commandbutton_click werden die Werte in eine neue leere zeile geschrieben. mit deinem code wird der name nur in ein und dieselbe zelle geschrieben.

Private Sub CommandButton1_Click()
z = 1
Do While Cells(z, 1) <> ""
z = z + 1
Loop
Cells(z, 1) = Me.Optionsbutton1
...

was muss ich ändern, damit me.optionsbutton1 den namen des ausgewählten optionbutton in die nächste freie zeile einträgt?

Danke für die schnelle hilfe, ich hoffe, dass ich mich jetzt besser ausgedrückt habe.

und tschüß
andreas


  

Re: optionbutton namen in zelle eintragen
von: Klaus Schubert
Geschrieben am: 06.06.2002 - 22:22:46

Hallo Andreas,
dann versuch's mal hiermit:

Private Sub CommandButton1_Click()
Dim FreieZelle As Integer, ctrOptionButton As Control
FreieZelle = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1

  For Each ctrOptionButton In Me.Controls
  
    If Left(ctrOptionButton.Name, 12) = "OptionButton" And _
        ctrOptionButton = True Then
        Cells(FreieZelle, 1) = ctrOptionButton.Caption
    End If
  
  Next
  
  Unload Me
  
End Sub

Gruß Klaus

 

Beiträge aus den Excel-Beispielen zum Thema "optionbutton namen in zelle eintragen"