Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diverse Blätter dauerhaft ausgeblendet lassen.

Forumthread: Diverse Blätter dauerhaft ausgeblendet lassen.

Diverse Blätter dauerhaft ausgeblendet lassen.
Josef_T
Guten Morgen zusammen,
mit dem Makro unten, blende ich ja mit einem Rutsch, alle 33 Tabellenblätter ein. Nun möchte ich aber
erreichen, dass die Blätter LOBU, PERSO, STUNDEN und URLAUB dauerhaft ausgblendet bleiben.
Wie geht das?
Private Sub CommandButton1_Click()
'Sub SheetsVisible()
Dim Wks As Worksheet
For Each Wks In ThisWorkbook.Worksheets
Wks.Visible = True
Next Wks
End Sub

Es wäre Super, wenn mir bitte jemand einenTip geben könnte.
Danke schon mal im Voraus,
Josef
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Blätter ein- und ausblenden
27.08.2011 07:28:49
Erich
Hi Josef,
die folgende Prozedur sieht umständlich aus, vermeidet aber, dass versucht wird, ALLE Blätter auszublenden.
Probier mal: 

Private Sub CommandButton1_Click()
'Sub SheetsVisible()
Dim arrAus, Wks As Worksheet, varN, blnOK As Boolean
' Liste der auszublendenden Blätter
arrAus = Array("LOBU", "PERSO", _
"STUNDEN", "URLAUB")
' Einblenden der restlichen Blätter
For Each Wks In ThisWorkbook.Worksheets
For Each varN In arrAus
If Wks.Name = varN Then Exit For
Next varN
If Wks.Name  varN Then
blnOK = True
If Not Wks.Visible Then Wks.Visible = True
End If
Next Wks
' Ausblenden der gelisteten Blätter
If blnOK Then
For Each Wks In ThisWorkbook.Worksheets
For Each varN In arrAus
If Wks.Name = varN Then Exit For
Next varN
If Wks.Name = varN Then Wks.Visible = False
Next Wks
Else
MsgBox "Mindestens ein Blatt muss eingeblendet sein!", vbCritical
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort und: Schönes Wochenende!
Anzeige
AW: Blätter ein- und ausblenden
27.08.2011 11:32:15
Josef_T
Hallo Erich,
Sorry, dass ich mich jetzt erst melde. Musste mal kurz zum Betrieb flitzen.
Erich, Dein Makro macht genau das, was ich gesucht habe.
Danke Dir für Deine Hilfe bzw. Deine Lösung!
Wünsche Dir noch ein schönes Wochenende.
Josef
;

Forumthreads zu verwandten Themen

Maximum aus Zeile,ausgeblendete Spalte nicht berüc
HermannZ

Hi;
wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.
 CEFGH1246  2     3     4     5&n...
13.08.2008 19:42:43
Thread-ID: 1001641
4 Beiträge
mehrere ausgeblendete Blätter auf einmal
Jakob

Hallo,
wie kann man in Excel mehrere bzw. alle ausgeblendete Blätter auf einmal einblenden?
Gruß,
Jakob
03.09.2008 17:27:04
Thread-ID: 1007177
4 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 Beiträge
Gruppierung mit ausgeblendeten Spalten
Leander

Hallo Zusammen!
Ist möchte eine Spalte, beispielsweise Spalte "E" ausblenden, die jedoch in einem Gruppierungsbereich, Spalten "C:G", liegt.
So weit so gut, schließe ich diese Gruppe und öffne diese wieder, ist auch die vorher ausgeblendete Spalte wieder sichtbar.

Kann ich das...
13.11.2008 06:59:45
Thread-ID: 1024010
3 Beiträge
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
Rechnen ohne Ausgeblendetes
Klemens

Hallo,
wenn ich eine Funktion benutze (z. B. SUMME), werden Werte, die in ausgeblendeten Zeilen oder Spalten stehen, in die Berechnung einbezogen. Wie kann ich dies verhindern?
mfg
Klemens Baake
20.11.2008 11:28:51
Thread-ID: 1026351
6 Beiträge
Anzeige
Ausgeblendete Zeilen werden ausgedruckt
Josef

Hallo Profis,
Wenn in bestimmten Zellen eine 0 steht soll der definierte Bereich (Zeilen) ausgeblendet werden.
Das funktioniert aber nur im ersten Bereich, bei weiteren werden in der Seitenansicht nur leere Seiten angezeigt und dann auch ausgedruckt, was nicht gewünscht ist.
Zum bes...
09.12.2008 12:39:59
Thread-ID: 1031348
5 Beiträge
Anzeige
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Anzeige
kkleinste (ohne ausgeblendete Spalten)
Rainer

Hallo,
suche nach einer Möglichkeit, kkleinste jedoch ohne Berücksichtigung ausgeblendeter SPALTEN zu nutzen.
Habe in einem anderen Forum schon gepostet und bekam nur die Funktion TEILERGEBNIS mitgeteilt. Diese wiederrum klappt wohl nur mit Zeilen. Deshalb habe ich weiter gesucht und bi...
07.02.2009 19:33:00
Thread-ID: 1048127
14 Beiträge
Diagramm-Datenquelle ausgeblendet
Alex

Hallo an alle,
ich habe eine Frage:
auf meinem Tabellenblatt habe ich einige Diagramme erstellt, die ich per Makro ein und ausblenden kann.
Die Datenquelle befindet sich ebenfalls auf diesem Sheet, nur viel weiter rechts.
Problem: Ich möchte die Daten rechts gern ausgeblendet ha...
01.03.2009 23:43:48
Thread-ID: 1055391
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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