Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Springe zum heutigen Datum

Springe zum heutigen Datum
03.09.2020 11:30:38
Lisa
Hallo liebe VBA Freunde,
ich bräuchte mal wieder einen kleinen Hint - es ist mal wieder ganz simpel und liegt nur an dem Anwender ^^
Ich habe ein Excel Sheet mit einem Kalenderblatt.
In den Spaltenüberschriften stehen in Zeile 5, im Spaltenbereich AW bis KY, je ein Tagesdatum (also z.B. 03.09.2020).
Nun möchte ich bei einem Klick auf einen Button, dass er automatisch einfach in die Zelle springt, in der das heutige Datum steht. Mehr nicht.
Ich hab schon einiges ausprobiert und es hat nicht funktoniert.
Das Datum in den Spaltenüberschriften ist wie folgt definiert: TT.MMM.YY (also z.B. 03. Sep 20).
Ich danke euch schon mal!
Viele Grüße!

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Springe zum heutigen Datum
03.09.2020 11:45:46
EtoPHG
Hallo Lisa,
Diesen Code in das Tabellenblatt mit dem Kalender: 
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
On Error Resume Next
UsedRange.Find(What:=Date).Select
On Error GoTo 0
End Sub
Ein Rechtsklick in irgendeine (nicht gesperrte) Zelle löst den Sprung aus!
Gruess Hansueli
AW: Springe zum heutigen Datum
03.09.2020 11:48:52
UweD
Hallo
in ein Modul

Sub datum()
Dim RNG As Range, Sp As Integer
Set RNG = ActiveSheet.Range("AW5:KY5")
If WorksheetFunction.CountIf(RNG, CDbl(Date)) > 0 Then
Sp = WorksheetFunction.Match(CDbl(Date), RNG, 0)
Application.Goto RNG.Columns(Sp), True 'True= auch hinscrollen / False= nur selectieren
End If
End Sub

LG UweD
Anzeige
AW: Springe zum heutigen Datum
03.09.2020 11:55:31
Nepumuk
Hallo List,
einfach so:
Public Sub Schaltfläche1_Klicken()
    Application.Goto Cells(5, Application.Match(Clng(Date), Rows(5), 0))
End Sub

Gruß
Nepumuk
AW: Springe zum heutigen Datum
03.09.2020 12:51:26
Lisa
Nepumuk! Vielen Dank! Das hat super funktioniert! :-)
Jetzt würde ich gerne noch die Zelle rot umrahmen (wenn sie angesprungen wird), damit man es gleich sieht und es soll sozusagen hinscrollen. Bei dem Code grade ist das Blatt noch nicht "mitgewandert".
Ich hab es so versucht, aber es läuft noch nicht ganz...:
ActiveCell.Select
Scroll = True
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Anzeige
AW: Springe zum heutigen Datum
03.09.2020 12:59:47
Nepumuk
Hallo Lisa,
teste mal:
Public Sub Schaltfläche1_Klicken()
    Application.Goto Cells(5, Application.Match(Clng(Date), Rows(5), 0)), True
    Rows(5).Interior.Pattern = xlPatternNone
    With ActiveCell.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Springe zum heutigen Datum
03.09.2020 13:17:51
Lisa
Hallo Nepumuk,
zeigt er einen Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler
und sprint dann zur Stelle:
Rows(5).Interior.Pattern = xlPatternNone
AW: Springe zum heutigen Datum
03.09.2020 13:23:50
Nepumuk
Hallo Lisa,
ersetze die Zeile:
Rows(5).Interior.Pattern = xlPatternNone
durch diese:
Range("AW5:KY5").Interior.Pattern = xlPatternNone
Gruß
Nepumuk
AW: Springe zum heutigen Datum
03.09.2020 13:27:43
Lisa
Hallo Nepumuk,
es kommt nochmal der Fehler und springt wieder zur gleichen Stelle.
Muss ich hier evtl. noch etwas definieren? :-)
AW: Springe zum heutigen Datum
03.09.2020 13:28:46
Nepumuk
Hallo Lisa,
sind die Zellen gesperrt (Blattschutz)?
Gruß
Nepumuk
AW: Springe zum heutigen Datum
03.09.2020 13:37:53
Lisa
Hallo Nepumuk,
ja Blattschutz ist drin...
Anzeige
AW: Springe zum heutigen Datum
03.09.2020 13:42:25
Nepumuk
Hallo Lisa,
versuch es so:
Public Sub Schaltfläche1_Klicken()
    Application.Goto Cells(5, Application.Match(Clng(Date), Rows(5), 0)), True
    ActiveSheet.Unprotect Password:="GEHEIM"
    Range("AW5:KY5").Interior.Pattern = xlPatternNone
    With ActiveCell.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveSheet.Protect Password:="GEHEIM"
End Sub

Das Kennwort musst du noch anpassen.
Gruß
Nepumuk
Anzeige
AW: Springe zum heutigen Datum
03.09.2020 13:37:55
Lisa
Hallo Nepumuk,
ja Blattschutz ist drin...
AW: Springe zum heutigen Datum
03.09.2020 14:37:53
Daniel
Hi
mach doch einfach eine Bedingte Formatierung für die Zellen AW5:KY5 mit der Regel: =AW5=Heute() und setze das Format auf rote Rahmenlinien.
Nachteil: damit gehen nur dünne Linien
Vorteil: du musst nichts programmieren und die ursprünglichen Linien wiederherstellen.
Solltest du einen Blattschutz haben, funktioniert das auch (nachdem du die Formatierung erstellt hast)
für das Sprungmakro würde ich folgenden Code verwenden, wenn dein Kalender lückenlos und aufsteigend sortiert ist: 
With Range("AW5") 'erste Zelle des Kalenders
ActiveWindow.ScrollColumn = .Column + Date - .Value
End with
da ein Datum in Excel eine normale Zahl ist, bei der ein Tag dem Wert 1 entspricht, kann man, wenn der Kalender lückenlos und aufsteigend sortiert ist (was Kalender in der Regel sind), die Zellposition eines bestimmten Datums einfach berechnen und muss dieses nicht suchen.
Lediglich bei Kalendern mit Lücken (z.B. nur Arbeitstage), unsortierten Datumswerten oder wenn die Datumwerte über mehrere Zeilen und mehrere Spalten verteilt sind, müsste man mit .FIND suchen, was aber bei Datumswerten in VBA ein paar Tücken hat.
Gruß Daniel
Anzeige
AW: Springe zum heutigen Datum
04.09.2020 11:21:52
Lisa
Vielen, vielen Dank euch nochmal! Es funktioniert! :-)

303 Forumthreads zu ähnlichen Themen

Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Anzeige
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
Datei löscht sich zu einem bestimmten Datum selbst
wolle

Hallo an alle,
ich würde gerne wissen ob es möglich ist, dass sich eine Excel - Datei zu einem bestimmten Datum selbst löschen kann.
Wie stell ich mir das vor?
Diese Datei wird an verschiedene Personen zu Übungszwecken ausgegeben. D.h. das Original wird mittels Speichermedium (USB-...
12.01.2009 20:54:00
Thread-ID: 1039018
6 Beiträge
Anzeige
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049955
2 Beiträge
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049956
3 Beiträge
Vergleich Datum in Zelle mit Datum heute
Schmidtler

Hallo,
habe mal wieder ein Problem:
Ich prüfe Datum bzw. Inhalt von Zelle V1 zu Datum bzw. Inhalt von Zelle V2 und gebe dann einen Wert in die Zelle unterhalb von V2 aus. Die Prüfung OK und ISSUE funktionieren. Jedoch hat mein Marko irgendein Problem mit dem Vergleich =Date. Kann mir ei...
27.02.2009 09:59:09
Thread-ID: 1054614
5 Beiträge
Zahlen zwischen zwie Spalten mit dem Datum darauf
Oskar

Hallo
Ich möchte Zahlen auf Spalten Addieren, welche zwischen zwei Datum liegen um zu berechnen, wie lange eine Arbeit unter Berücksichtigung der Feiertage geht. Die Zeile mit %, wieviel nicht gearbeitet ist, ist schon auf der Tabelle. (Zeile 4) Auf Zeile 2 steht das Datum. Die Datum von un...
11.05.2009 14:07:39
Thread-ID: 1074347
3 Beiträge
Wochentag aus Zelle mit Datum
MikeM

Hallo zusammen,
hab ein Problem und hoffe auf eine Lösung.
Ich möchte mir gerne aus einem Datum den Wochentag anzeigen lassen - allerdings als Text.
Beispiel:
Zelle A1 = 11.02.2009 (formatiert als TT, da ich nur den Tag brauche, also 11, da es sich um einen Kalender handelt)
...
18.05.2009 14:47:49
Thread-ID: 1075909
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
1
4
5
16
1
2
4
2
3
1
3
2
6
2
3
5
3
4
2
1
4
11
2
1