Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1260to1264
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 mit Makro ausblenden

Spalten mit Makro ausblenden
Susanne
Hallo,
Mein Excelsheet hat 8 Spalten. In der ersten Zeile ist jede Spalte entweder mit 0 oder 1 gekennzeichnet. Das ist aber nicht statisch. D.h. Spalte A kann heute eine 0 haben und morgen aber eine 1. Nun möchte ich mittels eines Makros abfragen welche Spalte 0 hat und diese dann ausblenden. Mit der Makroaufzeichnung funktioniert das leider nicht, da er die Spalten ja statisch vergibt. Im Archiv konnte ich leider dazu auch nichts finden.
Wer kann mir helfen?
Im Voraus bereits vielen Dank!
Liebe Grüße
Susanne

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

Betreff
Benutzer
Anzeige
AW: Spalten mit Makro ausblenden
15.05.2012 12:21:49
Ingo
Sub spalten_ausblenden()
Dim rng As Range
Dim col As Range
Set rng = Sheets("Tabelle1").UsedRange
For Each col In rng.Columns
col.Hidden = False
Next col
For Each col In rng.Columns
If col.Cells(1) = 0 Then col.Hidden = True
Next col
End Sub
mfG
Ingo christiansen
AW: Spalten mit Makro ausblenden
15.05.2012 12:36:23
Susanne
Hallo,
Danke! Das funzt schon mal. Was muss ich jetzt noch abändern wenn ich in der Mappe mehrere Sheets habe, die alle gleich aufgebaut sind und bei denen allen die gleichen Spalten ausgeblendet werden soll?.
Liebe Grüße
Susanne
AW: Spalten mit Makro ausblenden
15.05.2012 12:23:00
Reinhard
Hallo Susanne,
ins Modul des Blattes:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Set Target = Intersect(Target, Range("A1:H1"))
If Target Is Nothing Then Exit Sub
For Each Zelle In Target
If Zelle.Value = 0 Then Zelle.EntireColumn.Hidden = True
Next Zelle
End Sub

Gruß
Reinhard
Anzeige
AW: Spalten mit Makro ausblenden
15.05.2012 12:41:26
Susanne
Hallo Reinhard,
danke schön für die schnelle Lösung!
Schönen Tag noch!
Susanne

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige