Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten ausblenden

Spalten ausblenden
08.12.2016 10:04:49
snewi133
Guten Morgen,
ich haben folgenden Syntax um Spalten ein- und wieder auszublenden:

With Sheets("Bericht")
Range("A:H").EntireColumn.Hidden = _
Not Range("A:H").EntireColumn.Hidden
End With
Jetzt würde ich aber gerne immer alle einblenden wenn ich einmal auf meinen Button drücke und wenn ich das nächste mal drücke soll die Zeile 5 z.b überprüft werden und alle Zellen von A:H die eine 0 enthalten sollen dann ausgeblendet werden!
Also immer abwechselnd! :-)
Geht das?
Gruss

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden
08.12.2016 10:37:29
Daniel
Hi
Beispielsweise so:
die Schleife am Anfang prüft den aktuellen Zustand (alles eingeblendet oder ausgeblendete vorhanden)
Sub Ein_AusBlenden_mit_gleichem_Button()
Dim c As Long
With Sheets("Bericht")
For c = 1 To 8
If .Columns(c).Hidden Then Exit For
Next
If c > 8 Then
For c = 1 To 8
If .Cells(5, c).Value = 0 Then .Columns(c).Hidden = True
Next
Else
.Columns(1).Resize(, 8).Hidden = False
End If
End With
End Sub
Gruß Daniel
AW: Spalten ausblenden
08.12.2016 13:17:53
snewi133
Läuft perfekt danke!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige