Clever-Excel-Forum - Mehre Spalten ausblenden mit VBA

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

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

Vielen Dank,

jetzt funktioniert es wie es soll.

Gruß Franke