Clever-Excel-Forum

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ß. Sad

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. Smile

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

Hallo Michael,

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

pillamann0815

Der Steuerfuzzi

pillamann0815