Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige