Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten automatisch ausblenden durch Überschrift

Spalten automatisch ausblenden durch Überschrift
20.01.2004 13:06:33
JanB
Hallo!
Kennt jemand ein Excel-Makro mit dem ich Spalten mit gewissen Überschriften automatisch aus-/einblenden kann?
Z.B. Überschrift einer Spalte = A oder L, etc...
Also immer nur ein Buchstabe als Kennzeichen.
Danke im Vorraus, Jan

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten automatisch ausblenden durch Überschrift
20.01.2004 13:11:11
M@rkus
Selektiert die Spalte A und blendet sie ein

Sub Einblenden()
Columns("A:A").Select
Selection.EntireColumn.Hidden = False
End Sub

Selektiert die Spalte A und blendet sie aus

Sub Ausblenden()
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
End Sub

Gruß M@rkus


AW: Spalten automatisch ausblenden durch Überschrift
20.01.2004 13:23:53
JanB
Danke Markus,
Das funktioniert, aber leider nicht ganz so wie ich es brauche.
Ich erklär´s mal besser:
1. Suchen nach der ersten Spalte mit Überschrift A
2. Markieren dieser Spalte (Aktive, nicht über Spaltenname)
3. Ausblenden der markierten
4. Loop, also wieder los bei 1
So dass am Ende alle Spalten mit dem Buchstaben A ausgeblendet sind.
Anzeige
AW: Spalten automatisch ausblenden durch Überschrift
20.01.2004 13:25:45
Michael Brueggemann
Hallo Markus,
vielleicht meinst Du eher dies:

Sub Spalten_ausblenden()
Dim i As Integer
Dim wks As Worksheet
' Zeiger auf zu bearbeitendes Worksheet setzen
Set wks = ThisWorkbook.Sheets("Tabelle1")
' von der ersten bis zur letzten Spalte
For i = 1 To wks.UsedRange.Columns.Count
' wenn in Spalte i, Zeile 1 "A" oder "L", dann ...
If wks.Cells(1, i).Value = "A" Or _
wks.Cells(1, i).Value = "L" Then
' Spalte ausblenden
wks.Columns(i).EntireColumn.Hidden = True
Else
'Spalte einblenden
wks.Columns(i).EntireColumn.Hidden = False
End If
Next i  ' naechste Spalte
End Sub


CIAO
Michael
Anzeige
AW: Spalten automatisch ausblenden durch Überschrift
21.01.2004 10:21:16
JanB
Danke Michael,
Hat geklappt. Jetzt funktioniert alles wie gewümscht.
Ciao, Jan

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige