Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

makro um von einem Arbeitsblatt auf das nächste weitergeleitet zu werden





Frage

Hallo, erstmal, im Archiv habe ich folgendes makro gefunden, um von "Arbeitsblatt 1" auf "Arbeitsblatt 2" zu gelangen: Umschalt Blatt1 nach Blatt2: [Code] Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 256 Then Worksheets(2).Activate End Sub Umschalt Blatt2 nach Blatt1: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then Worksheets(1).Activate End Sub LEIDER SPRINGT MAN DADURCH NICHT AUF DIE GLEICHE ZELLE !! Hat jemand eine Idee wie man das ändern könnte ??? D.h., wenn ich in "Tabelle1!" auf Zelle "IV500" Enter drücke, dass ich in "Tabelle 2 !" auf Zelle "A500" lande ???? Vielen Dank und Gruss Tom

Antwort 1 von Seradest

Hallo Sprayer,
ich würde dazu den Zeilenindex der aktuellen Auswahl ermitteln. Dann kannst du im folgenden Blatt in die gleiche Zeile springen. Etwa so:

If Target.Column = 256 Then
Zeile = Target.Row
Worksheets(2).activate
Worksheets(2).Cells(Zeile,1).Select
End if


Grüße Carsten

Antwort 2 von Seradest

Nochmal inklusive Deklaration :)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zeile As Long
If Target.Column = 256 Then
Zeile = Target.Row
Worksheets(2).activate
Worksheets(2).Cells(Zeile,1).Select
End if
End Sub

Grüße Carsten

Antwort 3 von sprayer70

Hallo, Carsten,

vielen Dank für Deine schnelle und hervorragende Hilfe !!!!
Das funktioniert fantastisch !!!
Genau wie ich es wollte !!!

Beste Grüsse
Tom