Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ausblenden ?

Forumthread: Spalten ausblenden ?

Spalten ausblenden ?
26.01.2005 21:38:48
erik
Hallo,
es sollen im Tabellenblatt "tuerliste", alle Spalten im Bereich von B:FT ausgeblendet werden, bei welchen in Zeile 5 kein "x" steht ?
Kennt jemand hierfür einen code ?
erik
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden ?
26.01.2005 21:43:03
Josef
Hallo Erik!
Das tut's!

Sub SpaltenAusblenden()
Dim rng As Range
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
For Each rng In Sheets("tuerliste").Range("B5:FT5")
If rng <> "x" Then rng.EntireColumn.Hidden = True
Next
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Spalten ausblenden ?
Reinhard
Hi erik,

Sub tt()
With Worksheets("tuerliste")
.Columns.Hidden = False
For Each Zelle In .Range("B5:FT5")
If Zelle.Value <> "x" Then Zelle.EntireColumn.Hidden = True
Next Zelle
End With
End Sub

Gruß
Reinhard
AW: Spalten ausblenden ?
erik
Hallo Reiner,
funktioniert ebenfalls 1A !
Danke für die Unterstützung !
erik
Anzeige
AW: Spalten ausblenden ?
erik
Hallo Josef,
hab's gerade getestet und funktioniert bestens !
danke !
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige