Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausgeblendete Arbeitsblätter

Ausgeblendete Arbeitsblätter
24.05.2006 17:29:43
Volker
Hallo zusammen,
Frage: Wie kann ich ein ausgeblendetes Arbeitsblatt "Tabelle2"
(Eigenschaften: "xlsheethidden") trotzdem per VBA ansprechen?
Momentan bekomme ich einen Laufzeitfehler. Kann mir jemand einen Tip geben?
Danke
Gruß Volker

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgeblendete Arbeitsblätter
24.05.2006 17:34:53
Dan
Hallo Volker, das sollte funktionieren :
Option Explicit

Sub a()
Dim sh As Worksheet
For Each sh In Worksheets
If (sh.Visible = xlSheetHidden) Then Debug.Print sh.Name & " is hidden"
Next sh
End Sub

Gruss Dan
AW: Ausgeblendete Arbeitsblätter
24.05.2006 17:44:43
Volker
Hallo Dan,
Danke für Deinen Tip.
ich werde es ausprobieren, aber nicht mehr heute.
Ich gebe aber Rückmeldung.
Danke Gruß Volker
AW: Ausgeblendete Arbeitsblätter
24.05.2006 17:41:01
Andi
Hi,
einige Dinge, zB drucken, sind mit ausgeblendeten Blättern nicht möglich. Blende es einfach vorher ein und hinterher wieder aus; wenn Du die Bildschirmaktualisierung währenddessen deaktivierst, dann bekommt das keiner mit. ZB so:

Sub t()
Application.ScreenUpdating = False
With Sheets(1)
.Visible = xlSheetVisible
.PrintOut
.Visible = xlSheetHidden
End With
Application.ScreenUpdating = True
End Sub

Schönen Gruß,
Andi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige