Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Registerkarten in gesamter arbeitsmappe ausblenden

Forumthread: Registerkarten in gesamter arbeitsmappe ausblenden

Registerkarten in gesamter arbeitsmappe ausblenden
20.08.2005 21:08:01
Sören
guten abend liebe leute,
ich habe folgenden code zur deaktivierung der registerkarten sowie zeilen- und spaltenüberschriften im workbook_activate-ereignis:
Set wb = ThisWorkbook
For Each wsh In wb.Worksheets
wsh.Select
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
Next wsh
kann ich dieses auch ohne eine for-next schleife erreichen? das "zuppelt" mir beim start einfach zu viel rum :)
oder hat jemand eine andere idee?
gruß,
sören
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Registerkarten in gesamter arbeitsmappe ausble
20.08.2005 21:10:15
Ramses
Hall
Set wb = ThisWorkbook
Application.Screenupating =False
For Each wsh In wb.Worksheets
wsh.Select
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
Next wsh
Application.Screenupating =True
Gruss Rainer
AW: Registerkarten in gesamter arbeitsmappe ausble
20.08.2005 21:14:47
Josef
Hallo Sören!
Erstens braucht man ein Sheet nicht aktivieren um änderungen durchzuführen,
und zweitens ist das in deinem Code Sinnlos, weil du Eigenschaften
des "ActiveWindow" änderst und nicht der Tabelle!
Es genügt

ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Anzeige
AW: Registerkarten in gesamter arbeitsmappe ausble
20.08.2005 21:34:33
Sören
hallo sepp,
dein code funktioniert aber nicht bei zeilen- und spaltenüberschriften, denn wenn ich über meine selbstkreierte menüleiste einen tabellenblattwechsel vornehme, sind die zeilen- und spaltenüberschriften wieder da!
gruß,
sören
AW: Registerkarten in gesamter arbeitsmappe ausble
20.08.2005 22:35:34
IngGi
Hallo Sören,
was passiert, wenn du das "wsh.select" weglässt und dich im Folgenden auf wsh, statt auf ActiveWindow beziehst? Also:

Set wb = ThisWorkbook
For Each wsh In wb.Worksheets
wsh.DisplayHeadings = False
wsh.DisplayWorkbookTabs = False
Next wsh
Gruß Ingolf
Anzeige
AW: Registerkarten in gesamter arbeitsmappe ausble
20.08.2005 22:38:14
ChrisBee
Hallo Sören.
Die beiden Codezeilen vom Sepp mußt Du in das Codefenster "Diese Arbeitsmappe" setzen
und diesen Befehl verwenden:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub

Grüße
ChrisBee
Anzeige
AW: Registerkarten in gesamter arbeitsmappe ausble
21.08.2005 15:41:25
sören
hi leute,
ich danke euch!
das mit dem "Application.ScreenUpdating = False" ist ne super sache!
gruß,
sören
;

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