Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

hyperlink auf das jeweilige heutige datum beziehen

hyperlink auf das jeweilige heutige datum beziehen
10.09.2003 09:07:10
Jürgen
hallo,

kann man einen hyperlink mit dem jeweils heutigem datum verbinden.
d.h. genau - heute / 10.09. wird bein anklicken mir zeile 8 angezeigt ----
morgen / 11.09. zeile 9 usw.

es handelt sich um eine fortlaufende jahrestabelle um somit vom tabellenende schnellstmöglich auf die zeile mit dem heutigen datum zurück zu kommen.

DANKE schonmal

Jürgen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: hyperlink auf das jeweilige heutige datum beziehen
10.09.2003 11:26:55
geri
Hallo Jürgen

mit Hyperlink kenne ich Lösung nicht aber vielleicht dies .....
von heute morgen aus dem Forum


Private Sub Worksheet_Activate()
Dim c As Range
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A1:A" & laR)
If c.Value = Date Then
Application.Goto Reference:=c, Scroll:=True
End If
Next c
Application.ScreenUpdating = True
End Sub


von WernerB ca. um 7.00 du findets es wieter unten im Forum

kopiere dies in der VBA Umgebung in das Blatt wo du möchttest das zu Datum geht
Spalte evtl. noch anpassen, bei Blattöffnung geht ist die Zelle mit Datum heute
selektiert, einfügen speichern und Neu öffnen nicht vergessen

gruss geri
Anzeige
AW: hyperlink auf das jeweilige heutige datum beziehen
10.09.2003 11:41:25
geri
noch eine Variante
auch von heute Forum


Private Sub Workbook_Open()
Dim ws As Worksheet
Dim r As Range
Set ws = Worksheets("Tabelle1")
ws.Activate
Set r = Cells.Find(Date)
If Not r Is Nothing Then
r.Select
Exit Sub
End If
MsgBox "Datum nicht gefunden"
End Sub


dies in diese TAbelle schreiben
gruss geri

96 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige