Office: Vorheriges aktives Tabellenblatt

Ich habe folgendes zu meinen Problem gefunden:


Folgenden Code in jedes Tabellenblatt einfügen:
Code:

Sub Worksheet_DeActivate()
' Den Blattnamen beim Verlassen des Blattes speichern
Vorher = Me.Name
End Sub

Folgenden Code in ein "Modul" einfügen:

Code:

Public Vorher As String
Sub Back()
' Das letzte gespeicherte Tabellenblatt aufrufen
If Vorher "" Then Worksheets(Vorher).Activate
Vorher = ""
End Sub


Jedoch habe ich viele Tabellenblätter und es wäre ziemlich zeitaufwendig jeden Tabellenblatt Worksheet_DeActivate() hinzuzufügen.

Gibt es eine Möglichkeit ohne das man in jeden Tabellenblatt Worksheet_DeActivate() hinzufügen muss?, wenn nein, gibt es eine Möglichkeit den Code im nachhinein automatisiert in allen tabellenblättern mit vba hinzuzufügen??

Gruß Daniel

:)

 

Hallo Daniel,
teste mal genau, ob das hier klappt:
Dieser Code im allgemeinen Modul:
Code:

Also ohne die letzte Zeile.
Und diesen Code jetzt nicht ins Blatt-Modul, sondern in das Modul der Arbeitsmappe:
Code:

Klappt es?

 

Danke hat geklappt!