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

Option Button

Betrifft: Option Button von: Andy
Geschrieben am: 08.11.2020 16:18:46

Hallo liebe Forumsmitglieder,

ich möchte in einer Excel- Datei mit 3 Optionsfelder die Inhalte in mehreren Spalten übertragen.
Wenn auf den ersten gedrückt wird, sollen dann ein Text "JA“ oder "NEIN“ oder "OK“ in die Spalten übertragen werden.
Die Zeilenanzahl kann nach dem Import unterschiedlich lang sein
Danke für eure Hilfe im Voraus!!

Beispiel:
https://www.herber.de/bbs/user/141411.xlsx

Betrifft: AW: Option Button
von: ralf_b
Geschrieben am: 08.11.2020 17:01:26

die Spaltennummern sind immer die Gleichen?

https://www.herber.de/bbs/user/141412.xlsm

Betrifft: AW: Option Button
von: Andy
Geschrieben am: 08.11.2020 17:30:55

Hallo ralf_b
ja die Spalten sind immer die gleichen nur die Zeilen sind unterschiedlich lang.

Habe in der Spalte A Zeilen runterkopiert, aber der Text der Optionsfelder werden nicht bis zu letzten Zeile ausgefüllt!

Kannst du mir das noch anpassen

Danke!

Betrifft: AW: Option Button
von: Werner
Geschrieben am: 08.11.2020 17:46:04

Hallo,
Private Sub OptionButton1_Click()
Dim loLetzte As Long

With Worksheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, "E").End(xlUp).Row
    Union(.Range("E8:E" & loLetzte), .Range("H8:H" & loLetzte), .Range("L8:L" & loLetzte), _
    .Range("O8:O" & loLetzte), .Range("R8:R" & loLetzte), .Range("T8:T" & loLetzte)) = "JA"
End With
End Sub

Private Sub OptionButton2_Click()
Dim loLetzte As Long

With Worksheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, "E").End(xlUp).Row
    Union(.Range("E8:E" & loLetzte), .Range("H8:H" & loLetzte), .Range("L8:L" & loLetzte), _
    .Range("O8:O" & loLetzte), .Range("R8:R" & loLetzte), .Range("T8:T" & loLetzte)) = "NEIN"
End With
End Sub

Private Sub OptionButton3_Click()
Dim loLetzte As Long

With Worksheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, "E").End(xlUp).Row
    Union(.Range("E8:E" & loLetzte), .Range("H8:H" & loLetzte), .Range("L8:L" & loLetzte), _
    .Range("O8:O" & loLetzte), .Range("R8:R" & loLetzte), .Range("T8:T" & loLetzte)) = "OK"
End With
End Sub
Gruß Werner

Betrifft: AW: Option Button
von: Andy
Geschrieben am: 08.11.2020 17:58:07

DANKE!!

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T.
von: Werner
Geschrieben am: 08.11.2020 18:51:51



Betrifft: AW: Option Button
von: ralf_b
Geschrieben am: 08.11.2020 18:21:24

komisch die Letzten Zeilennr bei meinem Code wird für jede betroffene Spalte einzeln ermittelt. Spalte A ist da nicht dabei.

Aber du hast jetzt eine Lösung.

Beiträge aus dem Excel-Forum zum Thema "Option Button"