Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ein-Ausblenden in einzelnen Arbeitsblätter

Forumthread: Ein-Ausblenden in einzelnen Arbeitsblätter

Ein-Ausblenden in einzelnen Arbeitsblätter
27.12.2017 13:12:13
Werner
Hallo liebe Ecxelfreunde, ich hoffe Ihr hattet schöne Feiertage.
Würdet Ihr mir bitte einen Tipp geben bezüglich Ein-Ausblenden.
Ich habe Arbeitsblätter von Januar - Dezember und in denen möchte ich ein Teil Aus-Einblenden. Ich habe jetzt unten stehendes, aber in der Jahresübersicht und bei dem Arbeitsblatt Feiertage usw. soll es nicht ausgeblendet werden. Wie kann man es schreiben?
LG Werner 
Sub AusEinblenden()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
.Range("J:AL").EntireColumn.Hidden = Not (.Range("J:AL").EntireColumn.Hidden)
End With
Next ws
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ein-Ausblenden in einzelnen Arbeitsblätter
27.12.2017 13:37:01
Robert
Hallo Werner,
vor dem Ausblenden einfach den Namen der Tabelle überprüfen: 
Sub AusEinblenden()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws 
If .Name  "Jahresübersicht" AND .Name  "Feiertage" Then
.Range("J:AL").EntireColumn.Hidden = Not (.Range("J:AL").EntireColumn.Hidden)
End If
End With
Next ws
End Sub
Gruß
Robert
Anzeige
AW: Ein-Ausblenden in einzelnen Arbeitsblätter
27.12.2017 13:44:38
Werner
Herzlichen Dank Robert, funktioniert! Es macht richtig spaß mit Euch!
Danke
Freut mich, wenn ich helfen konnte. owT
27.12.2017 13:48:49
Robert
AW: Ein-Ausblenden in einzelnen Arbeitsblätter
27.12.2017 13:40:23
Sepp
Hallo Werner,
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub AusEinblenden()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
  Select Case ws.Name
    Case "Jahresüberblick", "Feiertage"
      'hier passiert nichts!
    Case Else
      With ws.Range("J:AL").EntireColumn
        .Hidden = Not .Hidden
      End With
  End Select
Next ws
End Sub

Gruß Sepp

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige