Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Stefan_calc vom 25.06.2019, 07:42 Options
Namen einfügen in excel
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
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 vom 25.06.2019, 08:20 Options
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
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 vom 25.06.2019, 08:34 Options
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
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 vom 27.06.2019, 09:25 Options
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
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
Ähnliche Themen
Excel - Datum automatisch einfügen
gast2498234823 05.01.2007 - 1149 Hits - 2 Antworten
kalender in excel einfügen
gastfrager 08.06.2007 - 289 Hits - 1 Antwort
komische Namen in Excel
Con 20.11.2007 - 96 Hits - 3 Antworten
Liniendarstellung beim einfügen von Excel-Tabellen in Word
Charly_Brown 05.03.2008 - 105 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
