Office: (Office 2016) Zum Datum springen

Hallo Zusammen,

ich habe ein Tagesblatt in dem verschiedene Eintragungen gemacht werden.

der erste Tag vom Monat steht in C5 . Formel in C5 ist :=DATUM(JAHR(A$2);MONAT(A$2);ZÄHLENWENN(A$1:A5;"Datum:"))
C5 holt sich das Datum aus A2, dort steht dann am Monatsanfang hat der 01.09.2020 Z.B.

Das Nächste Datum steht dann in C39 mit dieser Formel:=DATUM(JAHR(A$2);MONAT(A$2);ZÄHLENWENN(A$1:A39;"Datum:"))

Das nächste Datum steht in C73.

Und immer in dem gleichen Abstand von 34 bis zu letzen Tag des Monats.

Ich hatte gerne , wenn die Datei geöffnet wird , sofort der Aktuelle Tag angezeigt wird.


Wie kann man das löse

 

Hallo,

ich habe dir im Codemodul "DieseArbeitsmappe" (bzw. "ThisWorkbook") ein VBA-Makro eingefügt, das startet, sobald die Arbeitsmappe nach dem Laden geöffnet wird.
Im aktiven Arbeitsblatt wird dann zu der Zelle mit der jeweils heutigen Tagesformel gesprungen.

 

Hi,

der Code löste einen Laufzeitfehler 1004 aus: "Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden".

Außerdem geht das einfacher auf diesem Weg:

Code:

Private Sub Workbook_Open()
    Dim rngDatum As Range
    Set rngDatum = Worksheets("Tabelle2").Columns(3).Find(Date, lookat:=xlWhole, LookIn:=xlValues)
    If Not IsError(rngDatum) Then Application.Goto Worksheets("Tabelle2").Cells(rngDatum.Row, 1), scroll:=True
End Sub

Bis später,
Karin

 

Hallo Anton Exl,

habe das Makro gerade in meine Mappe eingebaut und es funktioniert auf Anhieb. Klasse

Eine Kleinigkeit wäre da noch.
Wenn nun auf das Datum gesprungen wird, liegt die Zeile mit dem Datum in der Mitte vom Bildschirm.

Ich habe in dem Blatt Zeile 1,2 und 3 Festgesetzt. Wäre es möglich das die Zeile mit dem Aktuellen Datum immer unter der Zeile drei positioniert wird ?

 

Hi,

meinen Code hast du getestet? Dort ist dein Wunsch nämlich bereits integriert.

Bis später,
Karin

 

Hallo Karin,

habe soeben Deinen Code getestet.
Da kommt die Fehlermeldung Laufzeitfehler 9 .

 

Hi,

heist dein Tabellenblatt bei dir vielleicht nicht Tabelle2? Das musst du natürlich anpassen.

Bis später,
Karin

 

Siehe Bild 1 aus dem #6 Thread

 

Ich kann dein Problem nicht nachvollziehen - zumindest in meiner Mappe nicht.

Bis später,
Karin

 

Hallo,

eventuell findest Du das Problem in der Datei.

 

Hi,

du hast in deiner Mappe gleich 2 Probleme:

1. gibt es in ihr kein Blatt mit Namen "Tabelle3" sondern der Codename das Blattes ist Tabelle3 - logisch dass Worksheets("Tabelle3") nicht gefunden und der Laufzeitfehler "Index außerhalb..." auftritt. Wenn man den Codenamen verwendet muss man sich anders darauf beziehen - nicht Worksheets("Tabelle3")... sondern einfach Tabelle3...
2. verwendest du verbundene Zellen was in jedem Fall zu einem Fehler führen muss

Mit folgendem Code sollte es dann funktionieren:

Code:

Private Sub Workbook_Open()
    Application.Goto Tabelle3.Cells(34 * (Day(Date) - 1) + 5, 1), Scroll:=True
End Sub

Bis später,
Karin

 

Hallo,

in der beiliegenden Exceldatei habe ich dir die hoffentlich passende Modifikation eingebaut.
Zur Info für @merkurmedium:
1) Das Makro von Beverly setzt voraus, dass bereits alle Datumsformeln in Spalte C enthalten sind, wobei das Makro zu der entsprechenden Zelle mit dem gesuchten Datum springt.
2) Mein Makro erzeugt alle Datumsformeln in der Spalte C (bzw. auch Spalte A) bis zur Zeile mit dem heutigen Datum und positioniert anschließend die aktive Zelle dorthin.

Es kommt also darauf an, welche der beiden Varianten du benötigst.

 

Hallo an Euch,

beide funktionieren nun.

Ich habe mich für die Version von Karin entschieden.
Der Hintergrund ist , dass die Formeln bereits bestehen.
Das Makro von Karin ist somit auch sehr schnell.

Bedanke mich sehr für die Hilfe.