Invertierung einer Checkbox
28.02.2014 09:20:28
Max
wahrscheinlich komme ich mit einer recht simplen Frage und mir kann damit recht schnell geholfen werden.
Ich füge über ein Makro diverse Checkboxen ein, welche bei Betätigung Spalten ein- bzw ausblenden sollen und somit Graphen in einem Diagramm beeinflussen. Jetzt ist es bei mir so, dass die Checkboxen ohne Häckchen eingefügt werden und der Graph angezeigt wird. Ich hätte es gerne invertiert, sprich: Ein Häckchen erscheint, wenn die Spalte nicht versteckt ist und somit der Graph gezeigt wird. Kann ich also schon beim Einfügen der Checkbox das Anzeigen des Häckchens beeinflussen?
Der entscheidenden Codes sind wohl jene:
Sub Implementierung()
ActiveSheet.CheckBoxes.Add(15, 30, 24, 17.25).Select 'Ort uebergeben
Selection.OnAction = "Checkbox.Checkbox1" 'bei klick folgt "Weiter"-Makro
Selection.Characters.Text = "Total" 'Beschriftung
With Selection.Characters(Start:=0, Length:=26).Font
.Name = "Calibri"
.FontStyle = "Standard"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.Value = 1
End With
End Sub
und
Sub CheckBox1()
Application.ScreenUpdating = False
Worksheets("12-Sekunden").Activate
Columns("C:C").Select
If Selection.EntireColumn.Hidden = True Then
Selection.EntireColumn.Hidden = False
Else
Selection.EntireColumn.Hidden = True
End If
Worksheets("Diagramm_12s").Activate
Application.ScreenUpdating = True
End Sub
Besten Dank für eure Hilfe!
Gruß Max