Optionsbutton individuell
11.11.2016 15:17:23
Fred
ich habs doch selbst hinbekommen. Die entscheidenen Ergänzungen waren:
If OptionButton10.Value = True Then Call CommandButton2_Click: ActiveSheet.UsedRange.AutoFilter _
Field:=12, Criteria1:=1
If OptionButton11.Value = True Then Call CommandButton2_Click: ActiveSheet.UsedRange.AutoFilter _
Field:=13, Criteria1:=1
If OptionButton12.Value = True Then Call CommandButton2_Click: ActiveSheet.UsedRange.AutoFilter _
Field:=14, Criteria1:=1
If OptionButton13.Value = True Then Call CommandButton2_Click: ActiveSheet.UsedRange.AutoFilter _
Field:=12, Criteria1:=0, Field:=13, Criteria1:=0, Field:=14, Criteria1:=0
.. daraus ergibt sich von meinem Verständnis heraus, eine weitere Frage:
Habe ich eines der neuen Optionsfelder geklickt und will dies rückgängig machen, nutze ich momentan also den Optionsbutton13. Meine Frage:
Kann ich den evt. überflüssig machen, indem ich z.B. auf das zuvor gewählte Optionsfeld einfach nochmal klicke, um Value=False zu erreichen? Gibt es dazu eine Code-Ergänzung?
Hat da jemand einen Tipp?
Die Datei https://www.herber.de/bbs/user/109350.xlsm wurde aus Datenschutzgründen gelöscht
Gruß
Fred