Das Archiv des Excel-Forums

sprung in die zeile mit heutigem datum

Bild

Betrifft: sprung in die zeile mit heutigem datum
von: juewo

Geschrieben am: 10.10.2003 09:39:30

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
Bild


Betrifft: AW: sprung in die zeile mit heutigem datum
von: Rick
Geschrieben am: 10.10.2003 09:55:09

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


Bild


Betrifft: AW: sprung in die zeile mit heutigem datum
von: Willie
Geschrieben am: 10.10.2003 09:55:29

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



 Bild

Excel-Beispiele zum Thema " sprung in die zeile mit heutigem datum"

Sprung zu einer Zellkoordinate und Aufruf des Zellkontextmenüs download Zeile einfügen, wenn 100er-Sprung download