Microsoft Excel

Herbers Excel/VBA-Archiv

Beim Aufruf auf "Heute" springen

Betrifft: Beim Aufruf auf "Heute" springen von: Tobiax
Geschrieben am: 04.11.2020 09:23:32

Hallo!

Ich habe einen Dienstplan für 2021.
Es gibt 2 Blätter "Jan-Jun" und "Jul-Dez". In der Zeile 6 sind alle Tage aufgelistet.

Bei Start der Excel Datei soll automatisch auf das heutige Datum gesprungen werden.
Wer kann mir da helfen?


Tobiax...

Betrifft: AW: Beim Aufruf auf "Heute" springen
von: Beverly
Geschrieben am: 04.11.2020 09:52:37

Hi,

versuche es mit folgendem Code im Codemodul DieseArbeitsmappe:
Private Sub Workbook_Open()
    Dim rngDatum As Range
    Select Case Month(Date)
        Case Is < 7
            With Worksheets("Jan-Jun")
                Set rngDatum = Rows(6).Find(Date, lookat:=xlWhole, LookIn:=xlFormulas)
                If Not rngDatum Is Nothing Then Application.Goto rngDatum
            End With
        Case Else
            With Worksheets("Jul-Dez")
                Set rngDatum = Rows(6).Find(Date, lookat:=xlWhole, LookIn:=xlFormulas)
                If Not rngDatum Is Nothing Then Application.Goto rngDatum
            End With
    End Select
End Sub

GrußformelBeverly's Excel - Inn

Betrifft: AW: Beim Aufruf auf "Heute" springen
von: Tobiax
Geschrieben am: 04.11.2020 10:37:51

Hallo!

Klappt leider nicht.

Hier mal die Datei:
https://www.herber.de/bbs/user/141301.xlsx

Toby ...

Betrifft: AW: Beim Aufruf auf "Heute" springen
von: Beverly
Geschrieben am: 04.11.2020 10:54:17

Hi Toby,

und WAS klappt nicht? Solche allgemeinen Aussagen sind absolut nichtssagend und deshalb nicht hilfreich bei der fehlersuche. Außerdem fehlt der Code in deiner Mappe, sodass ich nicht feststellen kann, ob du ihn richtig eingefügt hast...


Private Sub Workbook_Open()
    Dim rngDatum As Range
    Select Case Month(Date)
        Case Is < 7
            With Worksheets("Jan-Jun")
                Set rngDatum = .Rows(6).Find(Date, lookat:=xlWhole, LookIn:=xlFormulas)
                If Not rngDatum Is Nothing Then Application.Goto rngDatum, scroll:=True
            End With
        Case Else
            With Worksheets("Jul-Dez")
                Set rngDatum = .Rows(6).Find(Date, lookat:=xlWhole, LookIn:=xlFormulas)
                If Not rngDatum Is Nothing Then Application.Goto rngDatum, scroll:=True
            End With
    End Select
End Sub


GrußformelBeverly's Excel - Inn

Betrifft: AW: Beim Aufruf auf "Heute" springen
von: Tobiax
Geschrieben am: 04.11.2020 14:16:35

Hallo!

Danke für deine Hilfe. Aufgrund deines Hinweises fiel mir auf, daß ich die Dateien nicht als xlsm gespeichert hatte.
Jetzt funktioniert es so, wie es soll.

Toby ...

Beiträge aus dem Excel-Forum zum Thema "Beim Aufruf auf "Heute" springen"