OptionButton
20.08.2015 18:28:36
Alexander
da ich mich mit Beispieldateien und Rekorderaufzeichnungen über Wasser halte bin ich mal wieder an meine Grenzen gestossen.
Ich möchte eigentlich nur zwei OptionButton ansprechen um bestimmte Spalten ein oder auszublenden.
Die OptionButten befinden sich in einer UserForm.
Die eigentlichen Funktionen werden über CommandButton aus der Exceltabelle angesprochen.
Ich hoffe es war einigermassen verständlich.
Das nachfolgende Beispiel funktioniert ganz gut, nur die OptionButton werden nicht angesprochen und bringen die Fehlermeldung Laufzeitfehler 424: Objekt erforderlich
Ich habe halt noch nie mit diesen Optionen gearbeitet daher komme ich auch nicht weiter.
Sub Pendenzen_mit_PQM()
' Pendenzen_mit_PQM Makro
' Gesamtliste
' Tastenkombination: Strg+Umschalt+G
ActiveSheet.Unprotect ("MSGGU")
Columns("A:AF").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$5:$AE$1650").AutoFilter Field:=2
ActiveSheet.Range("$A$5:$AE$1650").AutoFilter Field:=4
ActiveWorkbook.Worksheets("Pendenzen + PQM").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Pendenzen + PQM").AutoFilter.Sort.SortFields.Add _
Key:=Range("A5:A1650"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Pendenzen + PQM").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
If OptionButton2.Value = False Then
ActiveSheet.Range("$A$5:$AE$1650").AutoFilter Field:=2
Columns("D:G").Select
Selection.EntireColumn.Hidden = False
ElseIf OptionButton1.Value = False Then
ActiveSheet.Range("$A$5:$AE$1650").AutoFilter Field:=2
Columns("E:F").Select
Selection.EntireColumn.Hidden = True
End If
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Columns("AF:AF").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Hidden = True
Range("G1").Value = "Pendenzen mit PQM"
Range("T2:T5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With
Range("H2").Select
ActiveSheet.Protect "MSGGU", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Sub
Alexander
Ps. Eine möglichst einfache Lösung wäre mir recht.