Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Namen einfügen in excel





Frage

Guten Morgen zusammen, gerade wollte ich einen Hyperlink einfügen zu einer Zelle innerhalb meines Blattes. Allerdings nicht so wie bisher, nämlich erst über <Strg>-F3 den Namen für die Zelle definieren und dann wonders einen Hyperlink auf die Zelle mit diesem Namen setzen. Sondern der Hyperlink soll auf die Zelle plus ca. 30 Zeilen zeigen. Damit die Überschrift oben steht. Ich möchte nämlich gleich die Zelle mit dem Namen oben stehen haben, und den ganzen Text dazu lesen können, der darunter steht. Nützlich wäre ein Hyperlink auf "Name+30 Zeilen". Geht sowas irgendwie in excel ? Die Funktion wird benötigt für die Erstellung eines Inhaltsverzeichnisses, welches am Anfang des Blatts steht. Grüße Stefan

Antwort 1 von Hajo_Zi

Hallo Stefan,

vielleich reicht schon, wenn die ausgewählt Zelle Link, oben ist?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
ActiveWindow.ScrollColumn = ActiveWindow.ActiveCell.Column
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row
End Sub
Diesen Code dem Workbook zuweisen. Es ist erforderlich, daß die beiden Scroll Befehle sowohl dem Ereignis Workbook_Open als auch Workbook_SheetChange zuzuweisen. Dann erscheint die aktive Zelle immer links oben.
Von "Quinoman" Michael
Application.Goto Reference:="R14C6", scroll:=True
von Andre

Gruß Hajo

Antwort 2 von Stefan_calc

Hallo Hajo,

klingt gut dein Vorschlag.

Wie es aussieht kann man so auch Sprünge zwischen Sheets als auch Sprünge innerhalb eines Sheets berücksichtigen.

Dankeschön und viele Grüße
Stefan

Antwort 3 von Stefan_calc

Hallo zusammen,

nach einigem rumexperimentieren bin ich nun auf ein kleines Codesegment gestossen, was sich auch als äusserst nützlich erwiesen hat.

Füge im VBA-Editor folgenden Code in "NameDeinesSheets" (z.B. Tabelle1) ein:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)


With ActiveWindow
'per Hyperlink gewählte Zelle "oben positionieren"
.SmallScroll Down:=.ActiveCell.Row - .VisibleRange.Row
End With


End Sub


Dies wirkt sich nur auf Hyperlinks aus, und man kann einstellen wieviele Zeilen unter der Überschrift oder Textmarke zu sehen sind.


Grüße
Stefan




Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: