Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Register über VBA auschalten

Register über VBA auschalten
14.10.2003 17:00:53
Bernd
Hallo erstmal,

ich möchte alle Registerblätter der Tabellen dauerhaft ausblenden, bis auf eine. Auf der verbleibenden Tabelle habe ich eine Schaltfläche für Druckvorschau und eine zum drucken selbst.

Habe folgenden Code in "diese Arbeitsmappe" eingebaut.

Worksheets("XYZ").Visible = xlVeryHidden

Problem ist, wenn ich den Button "Druckvorschau" anklicke werden alle Register wieder angezeigt.

Wie kann ich das verhindern?

Vielen Dank im Voraus

Gruss Bernd

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

Betreff
Datum
Anwender
Anzeige
AW: Register über VBA auschalten
14.10.2003 17:59:27
GraFri
Hallo



Sub Registerkarten_ausblenden()

    Application.ActiveWindow.DisplayWorkbookTabs = False
    CommandBars(1).Controls("Extras").Controls("Optionen...").Visible = False

End Sub

Sub Registerkarten_einblenden()

    Application.ActiveWindow.DisplayWorkbookTabs = True
    CommandBars(1).Controls("Extras").Controls("Optionen...").Visible = True

End Sub


     Code eingefügt mit Syntaxhighlighter 2.4


mfg, GraFri
Anzeige
AW: Register über VBA auschalten
14.10.2003 18:17:01
Bernd
Hallo GraFi,

vielen Dank für deine Antwort.

habe deinen Code im Original eingefügt und erhalte beim öffnen der Datei "Fehlermeldung: Laufzeitfehler 91"


Private Sub Workbook_Open()
Application.ActiveWindow.DisplayWorkbookTabs = False
CommandBars(1).Controls("Extras").Controls("Optionen...").Visible = False
End Sub


Wat nu???

Fällt dir etwas dazu ein?

Gruss Bernd
AW: Register über VBA auschalten
14.10.2003 18:41:01
GraFri
Hallo

Sorry - kleiner Fehler.

Füge 'Application.' vor CommandBars(1)... ein, dann funktioniert es.

mfg, GraFri
Anzeige
Danke für den Hinweis, klappt!!!
14.10.2003 18:48:34
Bernd
.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige