Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: alle Blätter beim verlassen in Zelle A1

alle Blätter beim verlassen in Zelle A1
S.
Hallo zusammen,
ich möchte gern, dass beim Verlassen meiner Excel-Datei alle Blätter
nach oben und links gescrollt werden und zusätzlich alle Blätter in Zelle A1 springen.
Die Anzahl der Blätter ist variabel und ändert sich.
Für eine kurze Hilfe bin ich sehr Dankbar.
Gruß
Anzeige

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

Betreff
Benutzer
Anzeige
AW: alle Blätter beim verlassen in Zelle A1
11.12.2009 14:35:09
Chris

Sub Blubb()
For Each Blatti In ActiveWorkbook.Worksheets
Blatti.Activate
ActiveSheet.Range("A1").Select
Next
End Sub

Beim Schließen oder Wechseln der Mappe ?
11.12.2009 14:36:14
NoNet
Hallo S.
was meinst Du mit "Verlassen" ? - Schließen der mappe oder nur Wechseln des Fensters in eine andere Mappe (oder Öffnen einer neuen Mappe) ?
Beim Schließen wäre das mit diesem VBA-Code möglich (in das Klassenmodul "DieseArbeitsmappe" kopieren) :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wsh As Worksheet
For Each wsh In Worksheets
wsh.Activate
Application.Goto "R1C1", True
Next
Sheets(1).Activate 'Erstes Blatt aktivieren
End Sub
Beim Wechseln der Mappe ist das etwas komplizierter...
Gruß, NoNet
Anzeige
Beim Wechseln des Blatt's dafür einfacher ;-) oT
11.12.2009 14:50:33
Renee

AW: Beim Wechseln des Blatt's dafür einfacher ;-) oT
S.
Dankeschön für die super schnelle Antwort es funktioniert

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Alle Blätter beim Verlassen in Zelle A1


Schritt-für-Schritt-Anleitung

Um sicherzustellen, dass beim Verlassen Deiner Excel-Mappe alle Blätter in Zelle A1 springen, kannst Du den folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass beim Schließen der Mappe alle Blätter aktiviert werden und der Cursor in Zelle A1 platziert wird.

  1. Öffne Deine Excel-Datei.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Im Projektfenster suche nach "DieseArbeitsmappe".

  4. Doppelklicke auf "DieseArbeitsmappe", um das Codefenster zu öffnen.

  5. Füge den folgenden Code ein:

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
       Dim wsh As Worksheet
       For Each wsh In Worksheets
           wsh.Activate
           Application.Goto "R1C1", True
       Next
       Sheets(1).Activate 'Das erste Blatt aktivieren
    End Sub
  6. Speichere die Änderungen und schließe den VBA-Editor.

  7. Teste die Funktion, indem Du die Mappe schließt.


Häufige Fehler und Lösungen

  • Fehler: Nichts passiert beim Schließen der Mappe

    • Lösung: Stelle sicher, dass der Code korrekt in das Klassenmodul "DieseArbeitsmappe" eingefügt wurde und dass Du die Datei als Makro-fähige Datei (z.B. .xlsm) speicherst.
  • Fehler: Excel springt nicht in Zelle A1

    • Lösung: Überprüfe, ob der Code korrekt kopiert wurde und dass keine anderen VBA-Skripte in Konflikt stehen.

Alternative Methoden

Falls Du den VBA-Code nicht verwenden möchtest, kannst Du auch eine andere Methode ausprobieren. Eine Möglichkeit wäre, manuell in jedes Blatt zu navigieren und die Ansicht auf Zelle A1 einzustellen. Dies kann jedoch zeitaufwändig sein, wenn Du viele Blätter hast.


Praktische Beispiele

Hier ist ein Beispiel für die Anwendung des VBA-Codes:

Angenommen, Du hast eine Excel-Mappe mit mehreren Blättern, und Du möchtest sicherstellen, dass beim Schließen der Mappe immer alle Blätter in Zelle A1 springen. Der oben angegebene VBA-Code sorgt dafür, dass dies automatisch geschieht, ohne dass Du manuell eingreifen musst.


Tipps für Profis

  • Verwende Application.ScreenUpdating = False am Anfang des Codes und Application.ScreenUpdating = True am Ende, um das Flackern der Blätter beim Aktivieren zu minimieren.

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
      Application.ScreenUpdating = False
      ' Dein Code hier
      Application.ScreenUpdating = True
    End Sub
  • Erstelle eine Schaltfläche in Deiner Excel-Mappe, die den VBA-Code ausführt, wenn Du möchtest, dass die Blätter auch ohne Schließen der Mappe in Zelle A1 springen.


FAQ: Häufige Fragen

1. Wie kann ich den Code anpassen, wenn ich nur bestimmte Blätter aktivieren möchte?
Du kannst den Code anpassen, indem Du eine Bedingung hinzufügst, um nur die gewünschten Blätter zu aktivieren.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code sollte in den meisten aktuellen Excel-Versionen funktionieren, die Makros unterstützen. Achte jedoch darauf, dass Du die Datei als Makro-fähige Datei speicherst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige