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
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
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
vielen Dank für Deine schnelle und hervorragende Hilfe !!!!
Das funktioniert fantastisch !!!
Genau wie ich es wollte !!!
Beste Grüsse
Tom