Grundeinstellungen für alle Tabellenblätter in Excel
Schritt-für-Schritt-Anleitung
Um die Grundeinstellungen für alle Tabellenblätter in Excel einzurichten, kannst du den folgenden VBA-Code verwenden. Dieser wird im "Diese Arbeitsmappe"-Modul eingefügt. Der Code sorgt dafür, dass die gewünschten Anzeigen und Optionen für alle Tabellenblätter gelten:
Private Sub Workbook_Open()
Dim wks As Worksheet
With Application
'--- Bildschirmaktualisierung aus ----
.ScreenUpdating = False
'---- Bearbeitungsleiste ausblenden
.DisplayFormulaBar = False
'--- Auto-Ausfülloptionen abschalten
.DisplayPasteOptions = True
'--- Automatische Berechnung einschalten
.Calculation = xlAutomatic
End With
For Each wks In Worksheets
wks.Activate
With ActiveWindow
'---- Zeilen- und Spaltenüberschriften ausblenden
.DisplayHeadings = False
'---- Gitternetzlinien ausblenden
.DisplayGridlines = False
End With
Next
Sheets(1).Activate
End Sub
Um die Einstellungen rückgängig zu machen, kannst du folgenden Code im "Diese Arbeitsmappe"-Modul hinzufügen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
With Application
'--- Bildschirmaktualisierung ein
.ScreenUpdating = True
'---- Bearbeitungsleiste einblenden
.DisplayFormulaBar = True
End With
For Each wks In Worksheets
wks.Activate
With ActiveWindow
'---- Zeilen- und Spaltenüberschriften einblenden
.DisplayHeadings = True
'---- Gitternetzlinien einblenden
.DisplayGridlines = True
End With
Next
End Sub
Häufige Fehler und Lösungen
Fehler: Gitternetzlinien und Überschriften werden nicht angezeigt.
Lösung: Stelle sicher, dass der Code für das Rückgängigmachen der Einstellungen korrekt in das Workbook_BeforeClose-Ereignis eingefügt wurde.
Fehler: Fehlermeldung beim Schließen der Datei.
Lösung: Überprüfe, ob der Parameter Cancel As Boolean im Workbook_BeforeClose-Ereignis vorhanden ist.
Alternative Methoden
Falls du den VBA-Code nicht verwenden möchtest, kannst du die Einstellungen manuell für jedes Tabellenblatt vornehmen:
- Alle Tabellenblätter einblenden: Klicke mit der rechten Maustaste auf ein Tabellenblatt und wähle "Alle Blätter einblenden".
- Gitternetzlinien und Überschriften: Gehe zu "Seitenlayout" und aktiviere die gewünschten Optionen.
Für größere Excel-Dateien kann das manuelle Ausblenden oder Einblenden von Gitternetzlinien zeitaufwändig sein, daher ist VBA oft die bessere Wahl.
Praktische Beispiele
Hier ist ein praktisches Beispiel zur Verwendung des Codes:
- Excel-Datei erstellen: Öffne Excel und erstelle eine neue Datei mit mehreren Tabellenblättern.
- VBA-Editor öffnen: Drücke
Alt + F11, um den VBA-Editor zu öffnen.
- Code einfügen: Füge den oben genannten Code in das Modul "Diese Arbeitsmappe" ein.
- Datei speichern und schließen: Speichere die Datei als Makro-fähige Arbeitsmappe (*.xlsm) und schließe sie. Beim nächsten Öffnen werden die Einstellungen automatisch angewendet.
Tipps für Profis
- Automatisierung: Du kannst den VBA-Code anpassen, um auch andere Einstellungen wie die Fußzeile für alle Tabellenblätter zu übernehmen.
- Schnellzugriff: Verwende Tastenkombinationen, um schneller zum VBA-Editor zu gelangen.
- Dokumentation: Kommentiere deinen Code gut, damit du später nachvollziehen kannst, was jede Zeile bewirken soll.
FAQ: Häufige Fragen
1. Wie kann ich die Auto-Ausfülloptionen in Excel deaktivieren?
Du kannst die Auto-Ausfülloptionen in deinem VBA-Code mit der Zeile Application.DisplayPasteOptions = True deaktivieren.
2. Was muss ich tun, um alle Tabellenblätter gleichzeitig anzuzeigen?
Verwende den Befehl Sheets(1).Activate, um das erste Blatt auszuwählen und dann die Sichtbarkeit der anderen Blätter sicherzustellen.
3. Kann ich diese Einstellungen für eine bereits bestehende Datei anwenden?
Ja, du kannst den VBA-Code in jede bestehende Excel-Datei einfügen, um die Grundeinstellungen anzupassen. Achte darauf, die Datei als Makro-fähig zu speichern.
4. Wie mache ich das Ausblenden von Excel-Fenstern rückgängig?
Du musst den entsprechenden Code im Workbook_Open-Ereignis anpassen, um die gewünschten Fenster beim Öffnen der Datei anzuzeigen.
