---

Hallo Dino,

möchtest Du, dass die Zelle oben links steht, so wie es beim Scrollen mit Maus oder Pfeil-/Bildtasten der Fall wäre? Das ist mit Excel-Bordmitteln schwer erreichbar, per VBA mit etwas Aufwand schon.

Eine Hilfe wäre, nach dem Klick auf den Hyperlink einmal eine (beliebige) Pfeil- oder auch Tab- oder Enter-Taste zu drücken, dann "springt" die Ansicht zur Zelle daneben/darunter/darüber (Gewöhnungssache).

Alternativ: Stichwort Benutzerdefinierte Ansichten.

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,
versuch mal:

Code:

---

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Application.Goto Reference:=Worksheets(Mid(Target.SubAddress, 1, InStr(1, Target.SubAddress, "!") - 1)).Range(Mid(Target.SubAddress, InStr(1, Target.SubAddress, "!") + 1, Len(Target.SubAddress) - InStr(1, Target.SubAddress, "!") + 1)), Scroll:=True
End Sub

---

Beim kurzen Test hier hat es funktioniert...

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Anpassung nicht erforderlich, "code" ist allgemeingültig gehalten.

Einfach kopieren und in Dein Sheet in dem die hyperlinks stehen, einfügen.
Also: Hyperlinks in Tabelle1 : Code in Tabelle1:

Alt+F11 -> Projektexplorer (linke Seite) auf die Tabelle doppelklicken -> code in weißen Bereich (rechts) einfügen ;-)

ohne VBA mußte auf Thomas warten, vielleicht fällt dem was dazu ein   

Ergänzung:
sollten sich hyperlinks auf mehreren sheets befinden, reicht es auch dieses in "DieseArbeitsmappe" zu kopieren:

Code:

---

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    Application.Goto Reference:=Worksheets(Mid(Target.SubAddress, 1, InStr(1, Target.SubAddress, "!") - 1)).Range(Mid(Target.SubAddress, InStr(1, Target.SubAddress, "!") + 1, Len(Target.SubAddress) - InStr(1, Target.SubAddress, "!") + 1)), Scroll:=True
End Sub

---

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info    Excel -Suche    RuA-Suche    FAQ-ACAD    Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kann ich auf die Entfernung nicht sagen 
haste mal die (oder eine dummy-) Mappe?
Dann guck ich mal "am lebenden Objekt"

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

OK, OK, ich geb mich geschlagen, hatte die hyplinks vorher auch via VBA erzeugt, dann ging es...
Meins liest sich eh viel zu umständlich   

[edit]    wo ist denn jetzt der Beitrag von Thomas hinverschwunden? So macht die AW doch gar keinen Sinn mehr? er meinte so tut's:
Application.Goto Reference:=Range(Target.SubAddress), Scroll:=True
[/rredit]

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info    Excel -Suche    RuA-Suche    FAQ-ACAD    Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

zeigt in Richtung Formelmonster 
wo auch immer seine AW hinverschwunden ist 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

testhyper.zip

;-) naja, nach dem Abschicken der Antwort habe ich nochmal einen Test laufen lassen und meine Verkürzung tat dann auch nimmer mögen tun -obwohl ich garnix am Code rumgefingert habe... , drum schnell löschen, bevor sich Fehler sich im Netz manifestieren  - Aber vorher schnell die Antwort in Excelmappe kopiert -zwecks späterer Analyse...,) und wenn noch etwas Zeit da wäre - nochmal Test 

Nun nochmal der Code - wie er nun in der Mappe steht

Code:

---

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Application.Goto Reference:=Range(Target.SubAddress), Scroll:=True
End Sub

---

und die gelöschte Antwort - nur zum visuellen Vergleich ;)

ich habe zwar nicht eine Lösung ohne Vba,
aber eventuell kürzer und vielleicht läuft es auch, weil Rübes Variante tat bei mir auch Error bringen  ;)

Code:

---

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Application.Goto Reference:=Range(Target.SubAddress), Scroll:=True
End Sub

---

@Rübe, wie hast du eigentlich die Monsterzeile kreiert ;-) ich konnte da nichts in Einzelschritten nachvollziehn    ;-) 
und schnell bist du ;-) -Respekt-

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Dafür gibt's von meiner unbeteiligten Seite auch Üs - klasse Lösung!

------------------
Seit Pro/E Version 1 dabei, auwei...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ich weiß, der Beitrag ist schon etwas älter, aber ich habe ein ähnliches Anliegen. Grundsätzlich tut das Makro schon das was es soll. Ich würde allerdings gerne lediglich zu der Zeile scrollen und nicht auch die Spalte anpassen. Ist das möglich?

Vielen Dank!

OSX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
besser wäre es gewesen einen neuen Beitrag zu erstelllen, da dann das Thema zum Problem passt und nur hier her zu verklinken,
So entsteht jetzt hier eine Antwort die u.U von anderen nie gefunden wird.

Code:

---

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
zeile = Range(Target.SubAddress).Row  'Zielzeile auslesen
newtarget = "A" & zeile                'neues Ziel bilden
Application.Goto Reference:=Range(newtarget), Scroll:=True  'auf false setzen, falls ZielZeile nicht nach oben positioniert werden soll
End Sub

---

TAG: Hyperlink, Sprung, nur zur Zeile

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP