Hallo Community, habe eine XL-Mappe mit vielen ausgeblendeten Blättern. Möchte den Rücksprung zum letzten Arbeitsblatt erreichen, wobei der Tabellenname des Blattes, wohin ich möchte, in der Tabelle „Basis“ in Zelle D21 steht.
Folgendes VBA müsste ggf. nur angepasst werden, was ich aber nicht kann:
Sub SIX()
Dim ws As Worksheet
On Error GoTo ERRH
Sheets(???).Activate
Exit Sub
ERRH:
Set ws = Worksheets.Add
ws.Name = ???
End Sub
Hallo Community, habe eine XL-Mappe mit vielen ausgeblendeten
Blättern. Möchte den Rücksprung zum letzten Arbeitsblatt
erreichen, wobei der Tabellenname des Blattes, wohin ich
möchte, in der Tabelle „Basis“ in Zelle D21 steht.
Folgendes VBA müsste ggf. nur angepasst werden, was ich aber
nicht kann:
Hallo Euti,
verstehe den Code nicht, bzw. lesen kann ich ihn ja, verstehe die Logik nicht so ganz.
Bei einem Fehler soll ein neues Blatt erzeugt werden? Ist das so von dir geplant?
Soll auch in ausgeblendete Blätter gesprungen werden?
Ich weiß nicht was du planst. Aber auch ohne Vba kann man bequem von Blatt zu Blatt wechseln.
Z.B. du hast ein Übersichtsblatt „jahr“, dort dann 12 zellen mit Hyperlinks auf die 12 Monatsblätter.
Pro Monatsblatt hast du dann eine Zelle mit dem Hyperlink zurück zum Blatt „jahr“
Nur mal so erwähnt.
Gruß
Reinhard
Hallo Reinhard,
danke für die Antwort. Mein Problem: Ich springe mit einer VBA-Prozedur (die verschiedene Befehle ausführt) aus diversen Blättern immer zu einem bestimmten Blatt. Von dem bestimmten Blatt aus möchte ich gerne zu dem Blatt zurück, von dem aus ich dorthin kam. Das geht meines Wissens mit einem sehr einfachen Makro, aber ich kenne es nicht mehr.
Zunächst herzlichen Dank.
Guten Tag,
danke für die Antwort. Mein Problem: Ich springe mit einer
VBA-Prozedur (die verschiedene Befehle ausführt) aus diversen
Blättern immer zu einem bestimmten Blatt. Von dem bestimmten
Blatt aus möchte ich gerne zu dem Blatt zurück, von dem aus
ich dorthin kam. Das geht meines Wissens mit einem sehr
einfachen Makro, aber ich kenne es nicht mehr.
Hallo Euti,
bis auf sehr wenige Befehle ist es absolut nicht nötig in Vba Blätter zu aktivieren.
99% aller Select und Activate sind unnötig.
Kostet nur unnötige Zeit und ggfs. flackert der Bildschirm durch die Rumhüpperei.
Zeige mal deinen Code, vielleicht kann man den entrümpeln.
Vielleicht meinst du sowas:
Worksheets(Worksheets(„Basis“).range(„D21“).Value).Activate
Gruß
Reinhard
Genau! Das ist, was ich brauchte. Vielen Dank
Gruß, Euti