Datum als Variable abspeichern (VBA)

Ich zeige Dir hier zwei Möglichkeiten auf, wie Du das heutige Datum als Variable abspeichern und danach abrufen kannst. Als erstes ist dazu die Variable "MeinDatum" in VBA zu deklarieren:

Dim MeinDatum As Date

Nehmen wir an, das abzuspeichernde Datum steht in der (Hilfs-)Zelle "A1". Ich habe da die Formel "=HEUTE()" verwendet, um stets das heutige Datum auszugeben. Nachfolgender Code speichert dann den Datumswert aus Zelle "A1" als Variable "MeinDatum" ab:

MeinDatum = Range("A1").Value

In einer nächsten Zelle kann daraufhin dieser Wert ausgegeben werden, beispielsweise in Zelle "A2":

Range("A2") = MeinDatum

Durch diesen Schritt wird aufwändigeres und performanteres "Copy + Paste" vermieden und auf Änderungen innerhalb der Datei kann durch einmaliges Definieren von Variablen besser reagiert werden. Auch kann so beispielsweise das gestrige Datum einfach ausgegeben werden, indem man obige Code-Zeile mit "-1" ergänzt:

Range("A2") = MeinDatum - 1

Zuletzt ist zu erwähnen, dass das heutige Datum nicht zwingend in einer Hilfszelle hinterlegt werden muss. Man kann die Formel "=HEUTE()" auch direkt in VBA verarbeiten. Die Definition der Variable (vorher: "MeinDatum = Range("A1").Value") lautet demnach:

MeinDatum = Date

respektive direkt, ohne Variablen-Definition:

Range("A2") = Date

Durch diesen Schritt erübrigt sich die vorherige Variablen-Deklaration ("Dim MeinDatum As Date").

Synchrones Scrollen / Synchroner Bildlauf

Wer kennt es nicht: Inhalte aus zwei verschiedenen Dateien müssen entweder miteinander verglichen oder in die jeweils andere Datei übertragen werden. Hilfreich dabei - sofern man keine zwei Bildschirme hat - ist die "Alle Anordnen"-Funktion unter dem Menüpunkt "Ansicht". Dies erlaubt es, die bereits geöffneten Dateien neben- oder übereinander anzeigen zu lassen (vertikal / horizontal). Somit sind die Informationen mehrerer Tabellen auf einen Blick ersichtlich, ohne dass man von Fenster zu Fenster springen muss. Unten aufgeführt sind zwei unterschiedliche Tabellen, vertikal angeordnet:

SynchronesScrollen

Dieser Beitrag trägt jedoch den Titel "Synchrones Scrollen / Synchroner Bildlauf" - was bedeutet das? Sind zwei Fenster neben- respektive übereinander angeordnet, muss man die jeweilige Datei aktivieren, um dort navigieren und scrollen zu können. Unter "Ansicht" → "Synchrones Scrollen" ("Synchroner Bildlauf" in älteren Excel-Versionen) lässt sich jedoch eine Funktion aktivieren, um direkt auf beiden Tabellen zu navigieren. Stelle sicher, dass auch der Button "Nebeneinander anzeigen" oberhalb aktiv ist!

NebeneinanderAnzeigen

Der synchrone Bildlauf funktioniert dann sowohl mit der Bildlaufleiste (scrollen), wie auch, wenn Du mit den Pfeiltasten innerhalb der Daten navigierst!

SynchronesScrollen2