Spalten ein und ausblenden mit VBA

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub OptionButton1_Click() Range("C:C,D:D,E:E,G:G,H:H,M:M,N:N,O:O,P:P,Q:Q").EntireColumn.Hidden = OptionButton1 End Sub Private Sub OptionButton2_Click() 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").EntireColumn.Hidden = OptionButton2 End Sub Private Sub OptionButton3_Click() Cells.EntireColumn.Hidden = Not OptionButton3 End Sub

Hallo Matthias,
vielen Dank hierfür, hab in der Zwischenzeit auch raus gefunden dass ich je einen "Private Sub" brauche. Was ich aber in der ersten Frage vergessen habe zu sagen, dass die ausgeblendeten Zellen in Ansicht 1 zum Teil bei Ansicht 2 wieder eingeblendet werden müssen. So wie Du das geschrieben hast muss ich immer über die Ansicht 3 also Gesamtansicht gehen. Hab das nun aus meiner und Deiner Lösung so zusammen gebastelt:

Private Sub OptionButton1_Click()
Range("C:C,D:D,E:E,G:G,H:H,M:M,N:N,O:O,P:P,Q:Q").EntireColumn.Hidden = OptionButton1
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 = False
End Sub
Private Sub OptionButton2_Click()
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").EntireColumn.Hidden = OptionButton2
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 = False
End Sub
Private Sub OptionButton3_Click()
Cells.EntireColumn.Hidden = Not OptionButton3
End Sub

funktioniert perfekt!!!
Tausend Dank!

Private Sub OptionButton1_Click() Range("C:C,D:D,E:E,G:G,H:H,M:M,N:N,O:O,P:P,Q:Q").EntireColumn.Hidden = OptionButton1 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").EntireColumn.Hidden = Not OptionButton1 End Sub

Private Sub OptionButton2_Click() 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").EntireColumn.Hidden = OptionButton2 Range("C:C,D:D,E:E,G:G,H:H,M:M,N:N,O:O,P:P,Q:Q").EntireColumn.Hidden = Not OptionButton2 End Sub

Beliebteste Forumthreads (12 Monate)

Spalten ein und ausblenden mit VBA

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

328 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten ein und ausblenden mit VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

328 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread