Mit Schaltfläche zum heutigen Datum springen

[Hejove]

Moin, moin,

ich möchte von mir sagen, dass ich im Bereich Macros schreiben, Neuland betrete.
Macros mit "aufzeichnen" und "beenden" klappt einigermaßen.
Ich möchte gern erreichen, dass ich mit einer Schaltfläche zum heutigen Datum springe.
Alle Datumseingaben stehen in C1 bis C223.
Wenn das heutige Datum z.B. in C45 steht, möchte ich auf "Knopfdruck" zu dieser Zelle wechseln.
Ich hoffe, dass ich mein Problem richtig beschrieben habe.

Viele Grüße
Hejove

[WillWissen]

Hi,

ich würde anstatt VBA eine Verlinkung bevorzugen:

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D	E
1	Datum		gesuchtes Datum:	28.07.2020	28.07.2020
2	20.07.2020
3	21.07.2020
4	22.07.2020
5	23.07.2020
6	24.07.2020
7	25.07.2020
8	26.07.2020
9	27.07.2020
10	28.07.2020
11	29.07.2020

Zelle	Formel
D1	=HEUTE()
E1	=WENNFEHLER(HYPERLINK("#A"&VERGLEICH($D$1;$A$1:$A$15;0);$D$1);"Datum nicht vorhanden")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Die (farbige) Hilfsspalte blendest du einfach aus. Mit Klick auf das Datum in E1 springt der Cursor in die richtige Zelle in Spalte A.

[LuckyJoe]

Hi,

falls es doch VBA sein soll (Datum in Spalte "C", ansonsten den Buchstaben und "Columns" anpassen):

Code:

Sub SpringZuHeute()
   
    Dim Heute As Long
   
    Heute = CDbl(Date)
    Application.GoTo reference:=ActiveSheet.Range("C" & Application.Match(Heute, ActiveSheet.Columns(3), 0)), Scroll:=True
   
End Sub

[wisch]

Hallo Günter,

ist ne schöne Sache, geht aber auch ohne Hilfsspalte:

=WENNFEHLER(HYPERLINK("#A"&VERGLEICH(HEUTE();$A$1:$A$15;0);HEUTE());"Datum nicht vorhanden")

[WillWissen]

Hi Wisch,

an die feste Verdrahtung hatte ich auch gedacht, bin dann aber zu dem geposteten Entschluss gekommen, weil dieser etwas flexibler ist, falls der TE auch x-beliebige Daten aufrufen will. Die Forumserfahrung lehrt einfach, dass nach Vorstellung einer Lösung oftmals (weitere) Begierlichkeiten kommen.

In so einem Fall darf natürlich die Hilfsspalte nicht ausgeblendet werden.

[Hejove]

Moin,
danke für eure schnellen Antworten. Ich habe mal die Formel von Günter ausprobiert.
=WENNFEHLER(HYPERLINK("#A"&VERGLEICH(HEUTE();$A$1:$A$15;0);HEUTE());"Datum nicht vorhanden")
Meine Daten (Datum) stehen in C8-67, das heutige Datum aus der v.g. Formel soll in D3 stehen.
Angepasste Formel in D3:
=WENNFEHLER(HYPERLINK("#C"&VERGLEICH(HEUTE();$C$8:$C$33;0);HEUTE());"Datum nicht vorhanden")
Angezeigt wir in D3 "Datum nicht vorhanden"
An welcher Stelle in der geänderten Formel habe ich Fehler gemacht?

Viele Grüße
Heinrich

[WillWissen]

Hallo Heinrich,

bei mir funktioniert deine (richtig) angepasste Formel. Auf dem Bildchen kann ich allerdings nicht erkennen, ob deine Daten Zahlen oder Texte sind (was ich vermute).

[Hejove]

Moin Günther,

danke für deine Nachricht.
Das Problem habe ich schon öfter gehört: "Bei allen anderen funktioniert es..."
Ich habe dann die "Tabelle 1" noch mal in in "Tabelle 2" kopiert. Hier wird keine Fehlermeldung angezeigt
und der Cursor spring an die richtige Stelle.
Der Unterschied zwischen "Tabelle 1" und "Tabelle 2" ist die Formatierung der "Tabelle 1" als Tabelle formatieren.
Ich hänge mal einen Ausschnitt des Aebeitsblattes an.

Viele Grüße
Heinrich

[WillWissen]

Hallo Heinrich,

überprüfe doch mal, ob du überhaupt das heutige Datum in deiner Liste hast. Ich hab's nicht gefunden - und Excel auch nicht. Mit dem heutigen Datum irgenwo in Spalte C und dem korrigierten Formelteil

=WENNFEHLER(HYPERLINK("#C"&VERGLEICH(HEUTE();$C$1:$C$67;0);HEUTE());"Datum nicht vorhanden")

macht der Hyperlink das, was er soll.

[Hejove]

Moin Günther,

hurra, es klappt :28:

Danke für deine Mühe.

Es sind die kleinen Dinge, die das Leben schwerer machen....

Viele Grüße und einen schönen Feierabend. Bleib gesund.
Heinrich