Office: Makro Zurück zum letzten aktiven Tabellenblatt

Hallo,

ich bin kompletter Neuling auf dem Gebiet Excel und arbeite mich so ganz langsam in die Bereiche Makros und VBA ein.

Ich habe eine Tabelle (Kalender) erstellt mit insgesamt 54 Tabellenblättern. Davon sind 52 Kalenderwochen und zwei weitere Listen.

Jetzt habe ich ein Makro erstellt, welches sich in jeder Kalenderwoche befindet. Mit diesem Makro gelange ich auf das Tabellenblatt 54. Nachdem ich dort etwas eingetragen habe, möchte ich nun mit einem neuen Makro zu dem Tabellenblatt zurück, von welchen ich aus auf das Tabellenblatt 54 gelangt bin. Also auf das letzte aktive Blatt vor dem Blatt 54...

Habe schon alle mögliche ausprobiert und gesucht, jedoch keine Lösung gefunden die auch funktioniert hat...

Gruß

Christian

:)

 

Hallo

speichere dir den Namen des Tabellenblattes von dem aus du ins Blatt
54 wechselst in eine Globale Variable
die kannst du dann nutzen um in das vorherige zurück zu wechseln

MfG Tom

 

Vielen Dank für die schnelle Antwort.

Wie würde das dann aussehen? Also das Mako? Wie gesagt, taste mich da langsam ran aber davon habe ich noch nichts gehört...

Gruß

Christian

 

Hallo

in ein allgemeines Modul

Code:

aus den 52 Blättern startest du das erste Makro
und aus Blatt 54 dann das zweite

MfG Tom

 

Soo.

habe jetzt ein neues Modul erstellt und folgenden Code eingegeben:

Option Explicit

Public strBlatt As String

Sub MDxx()
strBlatt = ActiveSheet.Name
Selection.Interior.Color = RGB(244, 16, 211)
ActiveCell.FormulaR1C1 = "M1"
ActiveCell.Offset(0, 1).Range("A1").Select
If MsgBox("Weiteres M1 eingeben?", vbYesNo) = vbNo Then
MsgBox ("Bitte in die M1-Liste eintragen!")
Sheets("M1 Liste").Select
Else

End If
End Sub

Sub zurueck()
Sheets(strBlatt).Activate
End Sub

Wobei "M1 Liste" das Blatt 54 ist.

Wenn ich jetzt auf den Button klicke funktioniert alles und es wird das Blatt M1 Liste (54) geöffnet. Klicke ich jetzt dort auf den Button "zurück"
kommt folgender Fehler:

"Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs

Gruß

Christian

 

Hallo

kann ich nicht nachvollziehen
in meinem Test geht es einwandfrei

MfG Tom

 

Das ist ja dann Merkwürdig...habe den kompletten Code, so wie ich ihn oben eingefügt habe in ein neues Modul eingefügt. Das Makro "MDxx" funktioniert. Das Makro "zurück" leider nicht. Da kommt immer die oben genannte Fehlermeldung...

 

Hallo Christian,

das geht viel einfacher, siehe Anhang. Man braucht nur 1 Makro im Klassenmodul 'DieseArbeitsmappe'!

Gruß von Luschi
aus klein-Paris