Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Platin7 vom 04.05.2022, 11:35 Options

Toggle Button Spalten ein- bzw. ausblenden

Hallo Leute!

Ich habe folgenden Code in meiner Arbeitsmappe!

Beim ersten Klick auf den Button blendet er mir die angegebenen Spalten aus!

Beim zweiten Klick sollen alle Spalten wieder eingeblendet, die Gruppierungen minimiert und die ersten beiden Spalten ausgeblendet werden!
Hier hapert es jedoch!

Kann mir jemande sagen, wo der Fehler liegt?

Private Sub ToggleButton1_Click()

If ToggleButton1 = True Then

Dim rngZelle As Range
Dim Prüfzeile As Long, ErsteSpalte As Long, X As Long
Prüfzeile = 27 ' anpassen
ErsteSpalte = 4 ' anpassen
For X = ErsteSpalte To Cells(Prüfzeile, Columns.Count).End(xlToLeft).Column
Set rngZelle = Cells(Prüfzeile, X)
If IsEmpty(rngZelle) Then
rngZelle.Offset(0, 0).Resize(1, 1).EntireColumn.Hidden = True
End If
Next

'Problemzone!!!
If ToggleButton1 = False Then

Columns("C:DM").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

Range("A:A,b:b").EntireColumn.Hidden = True '[/b]

End If
End If

End Sub

Danke!

Gruss

Ines

Antwort schreiben

Antwort 1 von Hajo_Zi vom 04.05.2022, 12:50 Options

Hallo Ines,

ich hätte es vielleich so geschrieben.


Option Explicit

Private Sub ToggleButton1_Click()
    Dim rngZelle As Range
    Dim Prüfzeile As Long, ErsteSpalte As Long, X As Long
    If ToggleButton1 Then
        Prüfzeile = 27 ' anpassen
        ErsteSpalte = 4 ' anpassen
        For X = ErsteSpalte To Cells(Prüfzeile, Columns.Count).End(xlToLeft).Column
            Set rngZelle = Cells(Prüfzeile, X)
            If IsEmpty(rngZelle) Then
                rngZelle.Offset(0, 0).Resize(1, 1).EntireColumn.Hidden = True
            End If
        Next
        'Problemzone!!!
     Else
        Columns("C:DM").EntireColumn.Hidden = False
        ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
        Range("A:A,b:b").EntireColumn.Hidden = True '[/b]
        End If
    End If
    Set rngZelle = Nothing
End Sub

Gruß Hajo

Antwort 2 von Saarbauer vom 04.05.2022, 12:53 Options

Hallo,

da so nicht testbar, aber

Range("A:B").EntireColumn.Hidden = True

sollte gehen oder

Columns("A:B").EntireColumn.Hidden = True '[/b]

Gruß

Helmut

Antwort 3 von Saarbauer vom 04.05.2022, 12:54 Options

Hallo,

aber ohne

Columns("A:B").EntireColumn.Hidden = True '[/b]

also so

Columns("A:B").EntireColumn.Hidden = True

Gruß

Helmut

Antwort 4 von Platin7 vom 04.05.2022, 12:54 Options

Super!

Funktioniert, mußte nur das eine End If rausnehmen!

Vielen Dank!

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken