Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Sprung zur Zelle mit aktuellem Datum

Sprung zur Zelle mit aktuellem Datum
18.03.2005 18:56:19
Walter
Hallo an Alle,
wahrscheinlich nichts großes:
bestehende Datei (= Urlaubsplan), in einer Spalte steht das jeweilige Tagesdatum. Nun soll der Coursor automatisch beim öffnen der Datei sofort auf dem aktuellen Tagesdatum stehen (unabhängig davon wo der Cursor beim letzten Speichern der Datei gestanden hat).
mit Dank im Voraus
Walter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sprung zur Zelle mit aktuellem Datum
18.03.2005 19:30:32
Herbert
Hallo Walter,
probier das:


Private Sub Workbook_Open()
Dim As Range
 For Each In Cells
    If c.Value = Date Then
      c.Select
     Exit For
    End If
 Next
 
End Sub

     
Gruß Herbert
Anzeige
AW: Sprung zur Zelle mit aktuellem Datum
18.03.2005 21:17:51
Herbert
für den Fall,daß das Datum nicht vorhanden ist,
war das natürlich nicht gedacht...


Private Sub Workbook_Open()
Dim As Range, ber As Range
Set ber = [a1:b100]
Application.ScreenUpdating = False
 For Each In ber
    If c.Value = Date Then
      c.Select
       Exit For
    Else
      [a1].Select
    End If
Next
 
Application.ScreenUpdating = True
 
End Sub

     gruß Herbert
Anzeige
AW: Sprung zur Zelle mit aktuellem Datum
18.03.2005 20:43:36
H.W
Hallo Walter
aus dem Forum mit Fehlerabfrage für Spalte B.

Sub Workbook_Open()
Dim SuBe As Range
Dim s As Date
Application.ScreenUpdating = False
Worksheets(1).Select
s = Date
Set SuBe = Range("B1:B65536"). _
Find(s, LookIn:=xlValue, lookat:=xlWhole)
If Not SuBe Is Nothing Then
SuBe.Select
Else
MsgBox "Tagesdatum nicht gefunden !", vbOKOnly + vbExclamation, _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
Set SuBe = Nothing
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Sprung zur Zelle mit aktuellem Datum
19.03.2005 23:06:56
Walter
Hallo Herbert, hallo Hr. Schmidt,
mit Dank für die Beiträge, werde beide erstmal testen müssen. Gebe dann feedback.
Gruß
Walter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige