springe zu bestimmter Zeile - Blattabhängig

[pillamann0815]

Hallo zusammen,

ich nutze momentan folgenden Code um zu bestimmten Zeilen zu springen.
Ich stehe aber so auf dem Schlacuh, dass ich da nicht weiter weiß.

Code:

Sub SpringezuLaser()
Application.Goto Reference:=Range("Laser"), Scroll:=True

End Sub

Nun kommt es immer wieder vor, dass ich das Blatt kopieren muss und dort sollte dann auch der Code in diesem Blatt funktionieren.
Da die Zeile "Laser dann aber doppelt vorhanden ist, springe ich immer wieder in das ursprüngliche Blatt.

Kann man den Code so anpassen, dass ich immer auf eine bestimmte Zeile im aktiven Blatt springe?
Evtl. direkt per Zeilennummer (z.B. Zeile 8) und nicht per Name?

Vielen Dank schon mal.

[Der Steuerfuzzi]

Hallo,

ungetestet:

Code:

Sub SpringezuLaser()
Application.Goto Reference:=Activesheet.Range("Laser"), Scroll:=True
End Sub

Aber eigentlich müsste er immer das aktuelle Blatt heranziehen, da das der Standard ist, wenn man nicht referenziert ... seltsam.

Wenn Du in Zeile 8 springen willst, z. B.:

Code:

Sub SpringezuLaser()
Application.Goto Reference:=Activesheet.Range("A8"), Scroll:=True
End Sub

[pillamann0815]

Hallo Michael,

ja, die Lösung war so leicht.
Vielen Dank für deine Hilfe.