Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige