499 Aufrufe
Gefragt in Tabellenkalkulation von
Hallo!

Suche schon seit Tagen in div. Foren, werde leider nicht fündig. Hoffe
dennoch, dass es eine Lösung für meinen Wunsch gibt.

Ich möchte (durch eine Tastenkombination) in die gleiche Zelle der
nächsten Tabelle springen. Dies soll nicht nur für 1 oder wenige
Zellen funktionieren, sondern für nahezu alle Zellen (die mit einem
Text, Datum, Zahlen "befüllt" werden). Ich möchte aber erst nach der
gesamten Eingabe in einer Tabelle (also nicht nur in 1 Zelle) in die
nächste Tabelle springen. Und dort eben nicht zu der Zelle, die ich in
dieser Tabelle zuletzt bearbeitet habe, sondern die gleiche, "von der
ich komme" ;-)

z.B. Ich bin in Tabelle1 / Zelle B54 --> ich möchte mittels
Tastenkombination in Tabelle2 / Zelle B54 springen. Dies soll dann
natürlich auch für Tabelle3, .... gehen.

Das nächste Mal bin ich z.B: in Tabelle1 / Zelle KM134 --> mittels
Tastenkombi in Tabelle / Zelle KM134.

Ich hoffe, ihr kennt euch aus. Ich danke euch schon jetzt für eure
Hilfe!!!

Danke & liebe Grüße aus Wien
Bidschey

2 Antworten

0 Punkte
Beantwortet von
Hallo bidschey,

Das ist relativ simpel, man muss nur wissen wie's geht :-)

Zeichne ein neues Makro auf über Ansicht -> Makro -> Makro aufzeichnen. | Gib dem Makro den Namen "Weiterspringen". | Gib im Feld Tastenkombination einen Buchstaben an über den du das Makro starten willst. | Wähle bei Makro speichern in "Diese Arbeitsmappe" wenn es nur in der aktuellen Datei funktionieren soll oder "Persönliche Makroarbeitsmappe" wenn es bei allen Dateien klappen soll. | Dann Klick auf OK. | Stoppe nun die Aufzeichnung wieder durch Klick auf Ansicht -> Makro -> Aufzeichnung beenden. | Gehe nun auf Ansicht -> Makro -> Makros anzeigen, wähle dort dein Makro "Weiterspringen" und klicke auf Bearbeiten. | Schreibe in den freien Platz zwischen Sub und End Sub den folgenden Code.

On Error Resume Next
a = Selection.Address
r = ActiveWindow.ScrollRow
c = ActiveWindow.ScrollColumn

Sheets(ActiveSheet.Index + 1).Select
Range(a).Select
ActiveWindow.ScrollRow = r
ActiveWindow.ScrollColumn = c
Speichern der Datei als XLS oder XLSM nicht vergessen. Im Fall der Persönlichen Makroarbeitsmappe einfach nur durch Klick auf Speichern.

Jetzt kannst du mit STRG + deinem gewählten Buchstaben zum nächsten Sheet springen.

Gruß Mr. K.
0 Punkte
Beantwortet von
Hallo Mr. K.!!!!

ich kann nur sagen: SENSATIONELL!!!! Besten Dank!!!!

Ganz tolle Anleitung - Schritt für Schritt - leicht nach zu vollziehen.
Und....es hat geklappt!! (Umlaute für die Tastenkombination
funktionieren scheinbar nicht - hab´s dann mit "q" probiert - und es
funkt!). Das erleichtert das Arbeiten extrem.

Nochmals herzlichen Dank vom Laien an den Profi :-)

Liebe Grüße - Bidschey
...