Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nach Makroablauf zu Arbeitsblatt zurückspringen

Forumthread: Nach Makroablauf zu Arbeitsblatt zurückspringen

Nach Makroablauf zu Arbeitsblatt zurückspringen
10.12.2004 17:08:12
Manuel
Hallo zusammen,
ich bin ein ziemlicher VBA-Newbie und versuche mit gerade mit dem Macrorecorder. Klappt soweit auch super, aber jetzt möchte ich folgendes realisieren: Über ein Macro werden aus verschiedenen Arbeitsblättern Berechnungen durchgeführt, Filter gesetzt und so weiter. Nach dem Ablauf des Macros bleibt Excel aber in dem letzten Arbeitsblatt stehen, in dem ja auch die letzte Aktion durchgeführt wurde. Durch welche Funktion kann ich erreichen, dass nach Ablauf der Berechnungs- und Filterfunktionen zu dem Arbeitsblatt zurückgesprungen wird, von dem das Macro ausgelöst wurde? Es gibt verschiedene Blätter, aus denen die gleichen Macros ausgelöst werden können, deswegen ist mir eine allgemeine Lösung wichtig, im Sinne von "GoTo.Sheet.Where.Macro.has.been.started" :)
Danke und Gruß,
Manuel
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nach Makroablauf zu Arbeitsblatt zurückspringe
Roland
Hallo Manuel,
das kann man nach dem Strickmuster machen:

Sub LangesMakro()
Dim Anfang As String
Anfang = ActiveSheet.Name
' sonstiger Code
Sheets(Anfang).Activate
End Sub

Gruß Roland
AW: Nach Makroablauf zu Arbeitsblatt zurückspringe
10.12.2004 17:23:15
Manuel
Hallo Roland,
klappt super - tausend Dank! Was würde ich bloß ohne die Hilfe von Euch kompetenten Leuten machen, ich glaub ich wär vollkommen aufgeschmissen :)
Grüße,
Manuel
Anzeige
Danke für die nette Rückmeldung o.T.
Roland
Gruß Roland
AW: Nach Makroablauf zu Arbeitsblatt zurückspringen
10.12.2004 17:20:24
MichaH
Hallo Roland,
Du musst die aktive Zelle und evtl. die aktive Selektion zwischenspeichern
und nach dem Makroaufrufen diese wieder aktivieren.
Etwa so:

Sub makro1()
Dim oldCell As Range
Dim oldSel As Range
Set oldCell = ActiveCell
Set oldSel = Application.Selection
... Makroinhalt ...
oldSel.Select
oldCell.Activate
End Sub

greetz micha
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige