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 OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen

OptionButton per Makro auswählen


Betrifft: OptionButton per Makro auswählen von: Kurt b
Geschrieben am: 17.03.2017 12:05:51

Hallo zusammen,
ich suche ein Makro, alle vorhandenen OptionButton selectieren und den
Schutz rausnehmen.
Gegoogelt noch nichts gefunden.

gruß
kurt b

  

Betrifft: AW: OptionButton per Makro auswählen von: ChrisL
Geschrieben am: 17.03.2017 12:24:52

Hi Kurt

ActiveX oder Formular Steuerelement? Auf einer Tabelle oder in einem Userform? "Schutz" bedeutet Enabled = False?

cu
Chris


  

Betrifft: Sorry auf einer Tabelle von: Kurt b
Geschrieben am: 17.03.2017 12:29:25

Hallo Chris,
auf einer Tabelle möchte ich alle OptionButton den Schutz entfernen.
Unter Eigenschaften den Haken bei Schutz entfernen rausnehmen.
Hatte mal aufgezeichnet.
ActiveSheet.Shapes.Range(Array("OptionButton1", "OptionButton3", _
"OptionButton4", "OptionButton5" _
, "OptionButton2", "OptionButton6")).Select

Selection.Locked = False

gruß
kurt b


  

Betrifft: AW: Sorry auf einer Tabelle von: Rudi Maintaire
Geschrieben am: 17.03.2017 12:43:16

Hallo,

Sub aaa()
  Dim o As OLEObject
  For Each o In Sheets(1).OLEObjects
    If o.progID = "Forms.OptionButton.1" Then o.Locked = False
  Next
End Sub
Gruß
Rudi


  

Betrifft: Danke Rudi perfekt, kann man auch... von: Kurt b
Geschrieben am: 17.03.2017 12:51:52

Hallo Rudi,
perfekt.
Kann man auch alle OptionButton selectieren, um diese zu verschieben ?
so ging es nicht.
If o.progID = "Forms.OptionButton.1" Then o.Select

gruß
kurt b


  

Betrifft: AW: Danke Rudi perfekt, kann man auch... von: ChrisL
Geschrieben am: 17.03.2017 13:04:33

Hi Kurt

Sub t()
ReDim ar(0) As Variant
Dim i As Integer
Dim o As OLEObject

For Each o In Sheets(1).OLEObjects
    If o.progID = "Forms.OptionButton.1" Then
        o.Locked = False
        ReDim Preserve ar(i)
        ar(i) = o.Name
        i = i + 1
    End If
Next o

ActiveSheet.Shapes.Range(ar).Select
End Sub

cu
Chris


  

Betrifft: Auch Dir Chris, danke läuft !!! -) von: Kurt b
Geschrieben am: 17.03.2017 14:14:05




Beiträge aus den Excel-Beispielen zum Thema "OptionButton per Makro auswählen"