Sprung zur Zelle mit aktuellem Datum

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Sprung zur Zelle mit aktuellem Datum von: Walter
Geschrieben am: 18.03.2005 18:56:19

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

Bild


Betrifft: AW: Sprung zur Zelle mit aktuellem Datum von: Herbert H.
Geschrieben am: 18.03.2005 19:30:32

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


Bild


Betrifft: AW: Sprung zur Zelle mit aktuellem Datum von: Herbert H.
Geschrieben am: 18.03.2005 21:17:51

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


Bild


Betrifft: AW: Sprung zur Zelle mit aktuellem Datum von: H.W Schmidt
Geschrieben am: 18.03.2005 20:43:36

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



Bild


Betrifft: AW: Sprung zur Zelle mit aktuellem Datum von: Walter
Geschrieben am: 19.03.2005 23:06:56

Hallo Herbert, hallo Hr. Schmidt,

mit Dank für die Beiträge, werde beide erstmal testen müssen. Gebe dann feedback.

Gruß

Walter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sprung zur Zelle mit aktuellem Datum"