Spalten ein und ausblenden mit VBA
20.03.2019 11:11:39
Paul
ich muss in einer Sheet drei verschiedene Ansichten generieren können indem bestimmte Spalten ein und ausgeblendet werden.
Ich habe mich für Active X Steuerelemente entschieden (Optionbuttons 3 Stück), weiss aber nicht ob das der richtige Weg ist.
Ich möchte 3 Buttons zur Auswahl haben und diese Buttons sollen mir Ansicht 1, Ansicht 2 und _
Ansicht 3 darstellen, wobei Ansicht 3 alle Spalten anzeigen soll. Ich habe es mit diesem Code _
probiert aber irgendwas funktioniert da nicht und somit bitte ich euch um Hilfe.
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Range("C:C,D:D,E:E,G:G,H:H,M:M,N:N,O:O,P:P,Q:Q").Select
Selection.EntireColumn.Hidden = True
End If
If OptionButton2.Value = True Then
Range("L:L,R:R,S:S,T:T,V:V,W:W,X:X,Y:Y,Z:Z,AA:AA,AB:AB,AC:AC,AD:AD,AE:AE,AF:AF,AG:AG,AH:AH, _
AI:AI,AJ:AJ,AK:AK,AL:AL,AM:AM,AN:AN,AO:AO,AP:AP,AQ:AQ,AR:AR,AS:AS").Select
Selection.EntireColumn.Hidden = True
End If
If OptionButton3.Value = True Then
Range("").Select
Selection.EntireColumn.Hidden = True
End If
End Sub
Im Voraus besten Dank für eure Hilfe
Anzeige