Spalten ein-/ausblenden, je nach Zellwert

Bild

Betrifft: Spalten ein-/ausblenden, je nach Zellwert
von: Tanja
Geschrieben am: 27.11.2015 13:40:44

Hallo,
ich möchte gerne eine Reihe von Spalten je nach deren Wert in Zeile 1 ein- bzw. ausblenden, bezogen auf die Spalten C:S (bei Wert = 1 einblenden, bei Wert = 0 ausblenden).
Ich weiss, wie ich einzelne Spalten ein- / ausblende (


EntireColumn.Hidden = False / True
), aber kann mir jemand sagen, wie ich das für den ganzen Bereich mache und dabei jeweils in Abhängigkeit von den Zellwerten in Zeile 1 ?
Vielen Dank im Voraus für Eure Hilfe.
LG,
Tanja

Bild

Betrifft: AW: Spalten ein-/ausblenden, je nach Zellwert
von: JoWE
Geschrieben am: 27.11.2015 13:56:02
Hallo Tanja,
so z.B.

Sub ein_aus_blenden()
    For sp = 3 To 19
        If Cells(1, sp).Value = 0 Then
            Columns(sp).Hidden = True
        Else
            Columns(sp).Hidden = False
        End If
    Next
End Sub
Gruß
Jochen

Bild

Betrifft: AW: Spalten ein-/ausblenden, je nach Zellwert
von: Tanja
Geschrieben am: 28.11.2015 17:02:03
Hallo Jochen,
das ist super so - vielen Dank für Deine Hilfe !
LG und ein schönes Wochenende,
Tanja

Bild

Betrifft: AW: Spalten ein-/ausblenden, je nach Zellwert
von: Tanja
Geschrieben am: 28.11.2015 17:02:04
Hallo Jochen,
das ist super so - vielen Dank für Deine Hilfe !
LG und ein schönes Wochenende,
Tanja

Bild

Betrifft: AW: Spalten ein-/ausblenden, je nach Zellwert
von: JoWE
Geschrieben am: 29.11.2015 17:50:38
Hallo und danke für die Rückmeldung
Gruß Jochen

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Spalten ein-/ausblenden, je nach Zellwert"