Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

sprung in die zeile mit heutigem datum

Forumthread: sprung in die zeile mit heutigem datum

sprung in die zeile mit heutigem datum
10.10.2003 09:39:30
juewo
hallo,
ich hoffe jemand kann mir helfen....
ich habe eine tabelle - in spalte d steht das datum ( fortlaufend ).

ich möchte das beim öffnen der tabelle die zeile mit dem heutigen datum als erste angezeigt ( oben ) wird.
hinweis: das fenster ist fixiert.

danke schonmal

juewo
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: sprung in die zeile mit heutigem datum
10.10.2003 09:55:09
Rick
Hallo Juewo

Nachstehend ein Makro, welches du unter 'Diese Arbeitsmappe' ablegen musst:

Ich habe dem Datumsbereich (in deinem Fall die Spalte d) einen Namen vergeben (Datum). Ferner heisst die betreffende Tabelle bei mir '2003'


Private Sub Workbook_Open()
Sheets("2003").Activate
Application.Goto Reference:="Datum"
Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
End Sub


Viel Spass
Rick
Anzeige
AW: sprung in die zeile mit heutigem datum
10.10.2003 09:55:29
Willie
Hoffe das passt so, sonst mußt du dich nochmal melden!
Gruß Willie


Private Sub Worksheet_Activate()
Dim ZF1 As String
ZF1 = Format(Date, "dd.mm.yy")    'liefert den TAG z. B. 24
Dim eintag As String
For i = 2 To 34
eintrag = Cells(i, 4).Value
If ZF1 = eintrag Then
Cells(i, 4).Activate
ActiveWindow.SmallScroll Down:=i - 2
Exit Sub
End If
Next
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige