Herbers Excel-Forum - das Archiv
sprung in die zeile mit heutigem datum
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