Office: (Office 2019) Makro - zurück zur zuletzt geöffneten Tabelle !

Hallo zusammen,

ich habe folgendes Problem.

ich habe mehrere Tabellen und wechsle mit Makros von Tabelle zu Tabelle.

Jetzt hätte ich gerne ein Makro das mich zurück zur letzten Tabelle bringt.

Ich versuche das mal zu erklären.


von Tabelle 1 - zu Tabelle 3 / Makro zurück zu Tabelle 1
von Tabelle 2 - zu Tabelle 3 / Makro zurück zu Tabelle 2

also wenn ich von der Tabelle 1 zur Tabelle 3 gesprungen bin möchte ich dass das Makro jetzt mich wieder zur Tabelle 1 bringt.
Wenn ich von Tabelle 2 dahin gekommen bin möchte ich dass das gleiche Makro mich zurück zur 2. Tabelle bringt.

Ich hoffe das ich es richtig erklärt habe.

danke im Voraus

 

Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Select - Hajo's Excelseiten
Online - Excel Programmierung VBA Makro: Performance (2) - Select Activate Bremsen und ein Beispiel
Online - Excel Programmierung VBA Makro: Achtung Makrorekorder oder Wer selektiert denn da?.

 

Was soll ich da drunter jetzt verstehen ?

 

Hallo,

ohne eine konkrete Beispieldatei deinerseits, aus der man deine bisher erstellten Makros entnehmen kann, und auch irgendwie entnehmen kann, wie du den Sprung von Tabelle X nach Tabelle Y ausführst, wird dir niemand helfen. Es gibt zu diesem Thema einfach zu viele Möglichkeiten, dies zu realisieren.

 

verzichte auf die angegeben Wörter, das kannst nur Du machen, Du siehst den Code.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

wusste nicht das es mit so einen großen aufwand betrieben ist, dachte das wäre einfach für jemand der sich auskennt.

 

So schwierig ist das ja auch nicht. Die Tabellenblätter haben einen Namen und einen Codenamen.
Wenn du, aus welchen Gründen auch immer, den Cursor in einem anderen Blatt haben willst, dann brauchst du das Blatt (den ActiveSheet) in dem du dich befindest in eine Variable einlesen (Namen oder Codenamen) und mit einem Sprungmakro das du mit irgendeinem Ereignis auslöst gehst du dann zu dem letzten Blatt dessen Name in der Variablen gespeichert ist.
Wie willst du die Springerei haben? Mit einem Knopf in der Schnellstartleiste?

 

Ach so, da fällt mir grad ein, Wenn du immer zum letzten Blatt springen willst, da gibt es in Excel ja eine Funktion dafür. Die kann man in die Schnellstartleiste einbauen und nennt sich "Zurück"

Hab gerade gesehen, dass das bei den neueren Versionen nicht mehr geht.
Dafür hab ich dir mal so ein Codeschnipsel gebaut.
Gehört in das Objekt "DieseArbeitsmappe"

Code:

Dim wksGemerkt As Worksheet

Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 Set wksGemerkt = Sh
End Sub



Sub retour()
 wksGemerkt.Activate
End Sub