Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
552to556
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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!
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
Anzeige
AW: Spalten ausblenden ?
erik
Hallo Reiner,
funktioniert ebenfalls 1A !
Danke für die Unterstützung !
erik
AW: Spalten ausblenden ?
erik
Hallo Josef,
hab's gerade getestet und funktioniert bestens !
danke !

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige