sprung in die zeile mit heutigem datum

• sprung in die zeile mit heutigem datum von juewo vom 10.10.2003 09:39:30
  • AW: sprung in die zeile mit heutigem datum - von Rick am 10.10.2003 09:55:09
  • AW: sprung in die zeile mit heutigem datum - von Willie am 10.10.2003 09:55:29

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

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

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

Excel-Beispiele zum Thema " sprung in die zeile mit heutigem datum"
Sprung zu einer Zellkoordinate und Aufruf des Zellkontextmenüs	Zeile einfügen, wenn 100er-Sprung