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

Forumthread: Ins letztes aktive Tabellenblatt springen

Ins letztes aktive Tabellenblatt springen
05.05.2017 13:00:28
Kevin
Seid gegrüßt! =)
kennt jemand ein Makro, welches per Button in das letzte aktive Tabellenblatt zurückspringen kann?
Situation:
Tabelle 3 ist meine Hauptübersicht mit knapp 70 Zeilen
(pro Zeile ein Hyperlink zu einem Tabellenblatt)
Wenn ich mich bspw. auf Blatt 54 befinde habe ich ein Makro welches mich zur Hauptübersicht zurückbringt. Aber wenn zwischen der Hauptübersicht und Blatt 54 mehrmals wechseln würde müsste ich immer zwischen den 70 Zeilen wieder den richtigen Hyperlink finden. Mit einem Button zurück zum letzten aktiven Blatt wäre es einfach schneller.
Wenn ihr mir da gerade helfen könntet wäre ich euch sehr dankbar!
Gruß
Kevin
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ins letztes aktive Tabellenblatt springen
05.05.2017 13:25:10
Nepumuk
Hallo,
ich hab dir mal eine Mustermappe hochgeladen. Bitte beachte auch den Code im Modul DieseArbeitsmappe.
https://www.herber.de/bbs/user/113347.xlsm
Gruß
Nepumuk
AW: Ins letztes aktive Tabellenblatt springen
05.05.2017 14:27:50
Kevin
Dann sag ich mal vielen, vielen Dank!! =)
Schönes Wochenende ;)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Ins letzte aktive Tabellenblatt springen in Excel


Schritt-für-Schritt-Anleitung

Um in Excel zum letzten aktiven Tabellenblatt zu springen, benötigst du ein einfaches VBA-Makro. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Projektfenster mit der rechten Maustaste auf "DieseArbeitsmappe" und wähle "Code anzeigen".

  3. Füge den folgenden VBA-Code ein:

    Dim lastSheet As Worksheet
    
    Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
       Set lastSheet = Sh
    End Sub
    
    Public Sub GoToLastSheet()
       If Not lastSheet Is Nothing Then
           lastSheet.Activate
       End If
    End Sub
  4. Schließe den VBA-Editor und zurück in Excel, füge einen Button hinzu, der das Makro GoToLastSheet ausführt.

  5. Um zu testen, wechsle zwischen deinen Tabellenblättern. Klicke dann auf den Button, um zum letzten aktiven Tabellenblatt zurückzukehren.


Häufige Fehler und Lösungen

  • Fehler: Der Button funktioniert nicht.

    • Stelle sicher, dass das Makro korrekt zugewiesen ist. Rechtsklicke auf den Button und wähle "Makros zuweisen".
  • Fehler: Das Makro speichert die letzten Blätter nicht.

    • Überprüfe, ob das Workbook_SheetDeactivate-Ereignis korrekt in das Modul "DieseArbeitsmappe" eingefügt wurde.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du auch manuell zwischen den Blättern navigieren:

  • Excel zum ersten Tabellenblatt springen: Du kannst CTRL + HOME verwenden, um direkt zum ersten Tabellenblatt zu gelangen.
  • Excel zum letzten Tabellenblatt springen: Halte CTRL und drücke die Pfeiltaste nach rechts, um schnell zwischen den letzten Blättern zu wechseln.

Praktische Beispiele

Angenommen, du hast eine Arbeitsmappe mit 70 Blättern, und möchtest schnell zwischen den Blättern navigieren:

  1. Du bist auf Blatt 54 und möchtest zurück zu Blatt 3 (Hauptübersicht).
  2. Klicke den Button, um zurückzugehen, ohne den Hyperlink zu suchen.

Das VBA-Makro spart dir Zeit und macht die Navigation in großen Excel-Dateien effizienter.


Tipps für Profis

  • Makros sichern: Speichere deine Arbeitsmappe im .xlsm-Format, um sicherzustellen, dass die Makros erhalten bleiben.
  • Benutzerdefinierte Shortcuts: Du kannst einen Shortcut für dein Makro festlegen, um noch schneller zwischen deinen Blättern zu wechseln.

FAQ: Häufige Fragen

1. Wie kann ich das Makro in einer neuen Arbeitsmappe verwenden?
Kopiere den VBA-Code in das Modul "DieseArbeitsmappe" der neuen Arbeitsmappe.

2. Funktioniert das Makro in allen Excel-Versionen?
Ja, das Makro sollte in den aktuellen Versionen von Excel (ab Excel 2010) problemlos funktionieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige