Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bestimmte Spalten nach ausblenden

Bestimmte Spalten nach ausblenden
01.10.2004 21:30:42
Kathrin
Hallo Leute,
ich möchte per VBA nach Begriffen in Zeile 1 suchen (z.B. "TA") und dann alle Spalten, die nicht "TA" heißen ausblenden...Der Suchbegriff soll dabei im Code stehen und nicht per "Fenster" eingegeben werden....
Kann mir da jemand helfen? Wenn also im Beispiel auf den Button "TA" geklickt wird, sollen alle Spalten mit "TA" sichtbar bleiben und alle anderen ausgeblendet (nicht gelöscht!) werden....
___A____B____C____D____E____F
1__TA___HT___BU___TA___TA___TA
2__12___15___22___1____55___20
.
.
.
.
Vielen Dank, Gruß, Kathrin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Spalten nach ausblenden
01.10.2004 22:42:52
Heinz
Hallo Kathrin,
z.B. so:

Sub Ausblenden()
Dim z As Range
For Each z In Range("A1:F1")
If z.Value <> "TA" Then
Columns(z.Column).Hidden = True
Else
Columns(z.Column).Hidden = False
End If
Next z
End Sub

Gruß
Heinz
AW: Bestimmte Spalten nach ausblenden
Reinhard
Hi Heinz,
so geht es kürzer:

Sub Ausblenden()
Dim z As Range
For Each z In Range("A1:F1")
Columns(z.Column).Hidden = z.Value = "TA"
Next z
End Sub

Gruß
Reinhard
AW: Bestimmte Spalten nach ausblenden
Piet
Logikfehler!
Piet
Cool!
02.10.2004 11:36:42
Heinz
Hallo Reinhard,
ja natürlich
Gruß
Heinz
Wow, danke!
02.10.2004 18:39:46
Kathrin
:-)
Anzeige

238 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige