Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zum Aktuellen Datum springen

Forumthread: Zum Aktuellen Datum springen

Zum Aktuellen Datum springen
24.11.2005 09:31:02
kalle
Hallo
brauche eine Formel für folgendes.
Ich brauch eine Formel die beim öffnen der Excel Datei zu einer bestimmten folie springt und dort bis zum aktuellen datum geht. Es soll dann egal sein wo man speichert(egal auf welcher folie) jedesmal wenn die datei neu geöffnet wird sol er zur bestimmten folie springen und zum aktuellen Datum.
Habe auch schon folgendes gefunden.

Private Sub Workbook_Open()
Dim Suchbegriff As Range
Set Suchbegriff = Range("'5'!$A$1:$A$370").Find(What:=Date, LookAt:=xlWhole)
If Suchbegriff Is Nothing = False Then _
Range(Suchbegriff.Address).Activate
End Sub

Bloß wenn ich auf einer anderen Folie abspeicher, dann ließt er das aktuelle Datum von der Folie mit dem Datum aus und springt auf der aktuellen nur in diese Zeile.
Keine ahnung wie ich des oben modifizieren soll ?
Außerdem hätte ich noch eine Frage.(Für ein anderes Worksheet)
Kann man einen Speichern - Button erstellen bei dem immer zuerst ins heuptmenü gegangen wird und dann dort abspeichert..
Kann mir bitte jemand helfen.
Gruß
Kalle
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zum Aktuellen Datum springen
24.11.2005 09:57:39
Rocky
Hallo,

Private Sub Workbook_Open()
Dim TabName as string
Dim Suchbegriff As Range
TabName= " Name der Tabelle "
Set Suchbegriff = Sheets(TabName).Range("'5'!$A$1:$A$370").Find(What:=Date,   LookAt:=xlWhole)
If Suchbegriff Is Nothing = False Then _
Range(Suchbegriff.Address).Activate
End Sub

Das müsste eigentlich Klappen
Gruß Rocky
Anzeige
AW: Zum Aktuellen Datum springen
24.11.2005 10:15:13
Kalle
Vielen Dank erst mal,
leider funktioniert es nicht. Noch jemand ne idee ?
gruß
kalle
AW: Zum Aktuellen Datum springen
24.11.2005 10:25:51
Rocky
Lad doch mal ne abgespeckte Variante hoch in der man nen bischen ausprobieren kann.
und mach die zelle Farbig in der du d landen willst.
gruß Rocky
AW: Zum Aktuellen Datum springen
24.11.2005 10:27:33
UweD
Hallo
die '5' im Range legt schon das Tabellenblatt fest (Name der Tabelle =5)
so klappt es

Private Sub Workbook_Open()
Dim Tabname
Dim Suchbegriff As Range
Set Tabname = Sheets("Tabelle2")
Set Suchbegriff = Tabname.Range("$A$1:$A$370").Find(What:=Date, LookAt:=xlWhole)
If Suchbegriff Is Nothing = False Then
Tabname.Activate
Tabname.Range(Suchbegriff.Address).Select
End If
End Sub

Gruß UweD
(Rückmeldung wäre toll)
Anzeige
AW: Zum Aktuellen Datum springen
24.11.2005 10:39:53
Kalle
Vielen Dank Hat geklappt
AW: Zum Aktuellen Datum springen
24.11.2005 10:33:59
Alexander
Also ich bin zwar kein Find-Experte, aber ich würde das Makro so ändern:

Private Sub Workbook_Open()
Dim Suchbegriff As Range
Dim s As Worksheet
Set s = ThisWorkbook.WorkSheets("Name")
Set Suchbegriff = s.Cells.Find(What:=Date, LookAt:=xlWhole)
If Not Suchbegriff Is Nothing Then Range(Suchbegriff.Address).Select
End Sub

Anzeige
AW: Zum Aktuellen Datum springen
24.11.2005 10:36:05
Alexander
Zu deiner anderen Frage:
Du kannst den BevoreSave Event nutzen um beliebige Operationen vor dem Speichern durchzuführen!
Gruß, Alexander.
AW: Zum Aktuellen Datum springen
24.11.2005 10:40:34
kalle
Vielen Dank Hat geklappt
AW: Zum Aktuellen Datum springen
24.11.2005 10:35:35
UweD
Hallo
die '5' im Range legt schon das Tabellenblatt fest (Name der Tabelle =5)
so klappt es

Private Sub Workbook_Open()
Dim Tabname
Dim Suchbegriff As Range
Set Tabname = Sheets("Tabelle2")
Set Suchbegriff = Tabname.Range("$A$1:$A$370").Find(What:=Date, LookAt:=xlWhole)
If Suchbegriff Is Nothing = False Then
Tabname.Activate
Tabname.Range(Suchbegriff.Address).Select
End If
End Sub

Gruß UweD
(Rückmeldung wäre toll)
Anzeige
;

Forumthreads zu verwandten Themen

Auf Datum mit Uhrzeit springen
Rainer

Hallo,
in meinem Excel Tabellenblatt befindet sich in der Spalte A jeweils fortlaufend das Datum mit einer Uhrzeit (30 Minuten Aufteilung).
Beispiel:
27.10.09 11:00
27.10.09 11:30
27.10.09 12:00 usw.
Da die Tabelle im Laufe der Zeit sehr lang wird, würde ich beim Öffnen...
27.10.2009 12:09:25
Thread-ID: 1112458
4 Beiträge
zum Datum springen
Andi

Hallo,
zu meinem Problem habe ich im Archiv mehrere ähnliche Fragen und auch Antworten gefunden. Allerdings gelingt es mir nicht die Formeln oder Codes entsprechend zu ändern.
Mein Problem:
Es existiert eine Excel-TAbelle mit Reitern "Januar 2010", "Februar 2010" usw bis Dezember....
29.10.2010 14:38:05
Thread-ID: 1184438
3 Beiträge
Aktuelles Datum bei mehreren Blättern anspringen
Heiko

Hallo,
ich möchte ein Stundenbuch anfertigen. Für jede Kalenderwoche ein eigenes Blatt zb. Kw12, Kw13 usw.
Um beim öffnen immer das aktuelle Datum anzuspringen, hab ich volgendes Makro verwendet:
Sub auto_open() spalte = "A" datum = Date On Error Resume Next zeile = Columns(spalte...
27.03.2012 18:05:59
Thread-ID: 1256704
4 Beiträge
Zum aktuellen Tabellenblatt springen
Tim

Hallo,
ich habe hier eine Exceltabelle in jeweils für 3 KW aufgetiele Tabellenblätter.
Z.b. kw 40-42 , kw 43-45 etc.
Jetzt will ich mittels VBA, dass er wenn man die Tabelle öffnet in die aktuelle KW springt. Ist das möglich?
Hier die Tabelle:
https://www.herber.de/bbs/user/...
17.06.2013 07:51:11
Thread-ID: 1317992
3 Beiträge
Zum aktuellen Datum Springen
Bernd
Hallo liebe Excelgemeinde,
ich suche einen Code der folgendes leistet:
In Spalte A ab A6 stehen untereinander die Daten des gesamtes Jahres.
Um mir das scrollen zu erleichtern, möchte ich einen Button anklicken, der in der Spalte I die Zelle auf Höhe des Datums in Spalte A springt.
...
30.06.2014 14:06:41
Thread-ID: 1368180
5 Beiträge
Sortieren und zum aktuellen Datum wechseln
Ali

hallo zusammen,
ich hoffe ihr könnt mir helfen. ich möchte, dass Excel meine liste nach Datum sortiert und dann zum aktuellsten Datum wechselt bzw. anzeigt. ich habe über den Recorder folgendes erzeugt:
Sub Makro1() ' Makro1 Makro ActiveWindow.SmallScroll Down:=219 Range("K10000").Selec...
01.09.2016 14:16:54
Thread-ID: 1512379
2 Beiträge
Sortieren und zum aktuellen Datum wechseln
Ali

hallo zusammen,
ich hoffe ihr könnt mir helfen. ich möchte, dass Excel meine liste nach Datum sortiert und dann zum aktuellsten Datum wechselt bzw. anzeigt. ich habe über den Recorder folgendes erzeugt:
Sub Makro1() ' Makro1 Makro ActiveWindow.SmallScroll Down:=219 Range("K10000").Selec...
01.09.2016 14:30:07
Thread-ID: 1512387
5 Beiträge
sortieren und zum aktuellen datum wechseln
Al

Moin' zusammen,
meine Makro funktioniert irgendwie nicht mehr. Dieser soll die Liste ( siehe Exceldatei ) sortieren nach Datum und anschließend auf den aktuellsten Datum springen. Bis Freitag hat er das noch problemlos gemacht, aber jetzt zickt er ein wenig rum...
Danke.
https://www...
19.09.2016 08:17:16
Thread-ID: 1515024
7 Beiträge
Anzeige
Zum heutigen Datum springen
Hader

Hallo euch allen.
Ich habe folgendes Problem. Ich habe eine Ganttliste für ein ganzes Jahr erstellt und wollte mit der Funktion HYPERLINK in dieser Tabelle auf das heutige Datum springen. Ich habe auch schon eine Funktion gefunden =HYPERLINK("#B"&VERGLEICH(HEUTE();B:B);"zu heute" (habe...
05.10.2017 10:19:49
Thread-ID: 1584342
3 Beiträge
Anzeige
Summenprodukt bis zum aktuellen Datum auswerten
David

Hallo Zusammen,
Da ich mittlerweile verzweifel und meine Recherchen mich nicht weiter gebracht haben, wende ich mich an euch Profis.
Folgendes Problem:
Ich habe einen Dienstplan für das ganze Jahr erstellt. Von diesem Plan sollen bestimmte Schichten gezählt werden (z.b. Nachtdienst...
14.01.2019 16:31:05
Thread-ID: 1668071
7 Beiträge
Zum Datum springen
sascha

Hallo und DankeWie kann ich innerhalb einer Excel Tabelle die aus 12 Monatsblättern mit Datum versehen ist, eine Formel oder so erzeugen mit dem ich immer auf das heutige Datum per Mausklich komme?Danke für Eure Unterstützung

06.03.2003 10:03:00
Thread-ID: 228137
5 Beiträge
Access: Calendar auf aktuelles Datum setzen
Jan
Hi!

Ich habe in Access 97 eine Form mit einem Kalender (Calendar Control 8.0, ActiveX Component). Diesen Kalender moechte ich gerne auf das aktuelle Datum setzen. Wie mache ich das???

Ich bin mir bewusst, dass das hier kein Access Forum ist. Mir wurde es dennoch empfohlen. Solltet ih...
08.10.2003 17:17:58
Thread-ID: 320711
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Auf das aktuelle Datum in Excel springen

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei, in der du das Verhalten einstellen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Suche im Projekt-Explorer auf der linken Seite nach "DieseArbeitsmappe" und doppelklicke darauf.

  4. Füge den folgenden VBA-Code in das Fenster ein:

    Private Sub Workbook_Open()
   Dim Tabname As Worksheet
   Dim Suchbegriff As Range
   Set Tabname = Sheets("Name der Tabelle") ' Ersetze "Name der Tabelle" durch den tatsächlichen Tabellennamen
   Set Suchbegriff = Tabname.Range("$A$1:$A$370").Find(What:=Date, LookAt:=xlWhole)

   If Not Suchbegriff Is Nothing Then
       Tabname.Activate
       Tabname.Range(Suchbegriff.Address).Select
   End If
End Sub

  5. Schließe den VBA-Editor und speichere die Datei als Makro-fähige Arbeitsmappe (.xlsm).

  6. Schließe die Excel-Datei und öffne sie erneut. Die Datei sollte nun beim Öffnen auf das aktuelle Datum springen.

Häufige Fehler und Lösungen

  • Problem: Das Makro springt nicht zur richtigen Zelle.

    • Lösung: Stelle sicher, dass der Tabellennamen im Code korrekt angegeben ist. Wenn der Name der Tabelle nicht stimmt, kann das Makro nicht darauf zugreifen.

  • Problem: Du erhältst eine Fehlermeldung beim Öffnen der Datei.

    • Lösung: Überprüfe, ob der VBA-Code korrekt eingegeben wurde und dass die Datei im richtigen Format (.xlsm) gespeichert ist.

Alternative Methoden

Wenn du nicht mit VBA arbeiten möchtest, kannst du auch die =HEUTE()-Funktion verwenden, um das aktuelle Datum in einer Zelle anzuzeigen. Dies hilft jedoch nicht dabei, direkt zu einer bestimmten Folie zu springen. Eine andere Möglichkeit ist, ein Hyperlink zu setzen, der auf eine Zelle mit dem aktuellen Datum verweist, aber auch hier ist die VBA-Lösung effektiver.

Praktische Beispiele

Hier ist ein Beispiel, wie der VBA-Code in einer realen Excel-Anwendung aussehen könnte:

Private Sub Workbook_Open()
    Dim Tabname As Worksheet
    Dim Suchbegriff As Range
    Set Tabname = Sheets("Tabelle2") ' Beispiel-Tabellenname
    Set Suchbegriff = Tabname.Range("$A$1:$A$370").Find(What:=Date, LookAt:=xlWhole)

    If Not Suchbegriff Is Nothing Then
        Tabname.Activate
        Tabname.Range(Suchbegriff.Address).Select
    End If
End Sub

Dieser Code aktiviert die Tabelle "Tabelle2" und sucht nach dem aktuellen Datum in den Zellen A1 bis A370.

Tipps für Profis

  • Nutze die Workbook_BeforeClose-Ereignisprozedur, um vor dem Schließen der Datei zu speichern.
  • Verwende die Application.OnTime-Methode für zeitgesteuerte Aufgaben innerhalb deiner Excel-Arbeitsmappe.
  • Experimentiere mit dem Find-Objekt, um spezifischere Suchkriterien zu verwenden, z. B. für bestimmte Datenformate.

FAQ: Häufige Fragen

1. Kann ich den Code anpassen, um auf andere Zellen zu springen? Ja, du kannst die Range-Anweisung im Code ändern, um auf andere Zellen oder Bereiche zu verweisen.

2. Funktioniert dieser Code in allen Excel-Versionen? Der VBA-Code sollte in den meisten modernen Excel-Versionen (Excel 2007 und später) funktionieren, solange die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

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