Mehre Spalten ausblenden mit VBA

[Franke]

Hallo ich habe mir ein VBA erstellt um Spalten auszublenden.
Nun möchte ich Sie erweitern aber es funktioniert einfach nicht.

Habe zb. versucht dies so zu erweitern, funktioniert aber nicht.
Hab es nicht so mit VBA
Wer kann mir da weiter helfen.

If Columns("F:G,L").EntireColumn.Hidden = False Then

Code:

Private Sub ToggleButton1_Click()
 
  If Columns("F:G").EntireColumn.Hidden = False Then
    Columns("F:G").EntireColumn.Hidden = True
    ElseIf Columns("F:G").EntireColumn.Hidden = True Then
        Columns("F:G").EntireColumn.Hidden = False
   
       
     End If
    
      


  If ToggleButton1 Then
        ToggleButton1.BackColor = &HFF&
       
    Else
        ToggleButton1.BackColor = &HC000&
       
    End If
   
    With ToggleButton1
    If .Caption = "Ausblenden" Then
        .Caption = "Einblenden"
    Else
        .Caption = "Ausblenden"
    End If
End With
 
End Sub

[Elex]

Hi

meinst du das?
Da die anderen eh an F gekoppelt sind reicht eigentlich das.

Code:

Public Sub trtrt()
If Columns("F").Hidden = False Then
  Range("F:G,L:L").EntireColumn.Hidden = True
Else
  Range("F:G,L:L").EntireColumn.Hidden = False
End If
End Sub

Gruß Elex

[Franke]

Vielen Dank,

jetzt funktioniert es wie es soll.


Gruß Franke