Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: in Sp. A zum aktuellen Monat springen

in Sp. A zum aktuellen Monat springen
14.07.2015 07:40:45
jockel
Hallo,
ich habe eine Tabelle, die zielmich lang ist. In der Spalte A habe ich immer ein Datum stehen (Format MMM.JJ) also zB "Jul. 15". Also jede Zeile ist ein Monat.
Aufgrund der Länge muss ich nach dem Start immer erst ein paar hundert Zeilen nach unten scrollen, um zum aktuellen Montat zu gelangen.
Ich wollte nun per Button, der sich in Zeile 1 befindet, immer zum aktuellen Monat springen. In einem anderen Sheet habe ich das schon gemacht, allerdings ist da die Skalierung nicht Monate, sondern Tage, also jeder Tag eine Zeile.
Code sieht da so aus:
Dim zelle
Set zelle = Worksheets("Finanzen").Columns("A:A").Find(What:=Date)
zelle.Select
Wie mache ich es, wenn ich zu einem aktuellen MONAT springen will, wie muss ich denn das aktuele Datum aufsplitten, damit ich in die aktuelle Zeile springen kann.
Hoffe, das war verständlich erklärt.
Danke
Jockel

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in Sp. A zum aktuellen Monat springen
14.07.2015 08:12:02
JoWE
Hallo Jockel,
vllt. so:
Set zelle = Worksheets("Tabelle1").Columns("A:A").Find(What:=Month(Date))
Gruß
Jochen

AW: in Sp. A zum aktuellen Monat springen
14.07.2015 08:51:32
Jockel
Hallo Jochen,
danke.
im Prinzip funktioniert der Sprung zum aktuellen Monat.
Allerdings wird das entsprechende Jahr nicht berücksichtigt.
Wenn meine Tabelle mit 01.01.2000, dann springt der Code zB nicht zum Juli 2015 (also heute , aktueller Monat) sondern auf den Juli 2000, also den ersten Monat den er findet, egal welches Jahr.
Man müsste die Abfrage noch auf das Jahr ausweiten.
Danke
Jockel

Anzeige
AW: in Sp. A zum aktuellen Monat springen
14.07.2015 08:50:18
Daniel
Hi
kommt darauf an, was in den Zellen steht.
vermutlich immer der Monatserste.
dann probier mal What:=DateSerial(Year(date), Month(date), 1)
wenn die Liste lückenlos und regelmäßig ist, (jeder Monat ab dem Startdatum vorhanden, jeder Monat eine Zeile) dann kannst du die Anzuzeigende Zeile auch berechnen anstatt sie zu suchen:
hier mal das Codebespiel, wenn in A2 das erste Datum steht:
Sheets("Finanzen").Select
ActiveWindow.ScrollRow = (Year(Date) - Year(Range("A2").Value) * 12 + Month(Date) - Month(Range("A2").value) + 2
Gruß Daniel

Anzeige
Danke, perfekt, funktioniert owT
14.07.2015 09:42:35
Jockel
;
Anzeige
Anzeige

Infobox / Tutorial

In Excel zum aktuellen Monat springen


Schritt-für-Schritt-Anleitung

Um in Excel schnell zum aktuellen Monat zu springen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne die Excel-Datei, in der Du den Button erstellen möchtest.

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

  3. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (deinDateiname)", gehe zu "Einfügen" und wähle "Modul".

  4. Kopiere den folgenden Code in das Modul:

    Sub SpringeZumAktuellenMonat()
       Dim zelle As Range
       Dim aktuellesDatum As Date
       aktuellesDatum = Date
    
       Set zelle = Worksheets("Finanzen").Columns("A:A").Find(What:=DateSerial(Year(aktuellesDatum), Month(aktuellesDatum), 1))
    
       If Not zelle Is Nothing Then
           zelle.Select
           Application.Goto zelle
       Else
           MsgBox "Aktueller Monat nicht gefunden."
       End If
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Deiner Excel-Tabelle.

  6. Füge einen Button hinzu: Gehe zu "Entwicklertools" > "Einfügen" > "Button (Formsteuerung)" und ziehe den Button auf das Arbeitsblatt.

  7. Weise dem Button das Makro zu: Wähle das gerade erstellte Makro SpringeZumAktuellenMonat aus und klicke auf "OK".

Jetzt kannst Du auf den Button klicken, um direkt zum aktuellen Monat in Spalte A zu springen.


Häufige Fehler und Lösungen

  • Problem: Der Code springt nicht zum richtigen Jahr.

    • Lösung: Verwende DateSerial(Year(Date), Month(Date), 1) im Code, um das aktuelle Jahr und den aktuellen Monat korrekt zu berücksichtigen.
  • Problem: Der Monat wird nicht gefunden.

    • Lösung: Überprüfe, ob die Datumsangaben in Spalte A im richtigen Format (MMM.JJ) vorliegen und lückenlos sind.

Alternative Methoden

Wenn Du keinen VBA-Code verwenden möchtest, kannst Du auch die Funktion SVERWEIS nutzen, um den aktuellen Monat anzuzeigen:

  1. Erstelle eine Hilfsspalte, die die Monatsnamen in Zahlen umwandelt.
  2. Verwende eine Formel wie:
    =SVERWEIS(MONAT(HEUTE());A:A;1;FALSCH)
  3. Diese Methode ist jedoch weniger direkt und weniger intuitiv als die VBA-Lösung.

Praktische Beispiele

Wenn Du in Spalte A Datumsangaben hast (z.B. "Jul. 15"), kannst Du den VBA-Code anpassen, um sicherzustellen, dass er sowohl Monat als auch Jahr korrekt verarbeitet. Beachte, dass der Code auf einem lückenlosen Datensatz basiert, wo jeder Monat eine Zeile einnimmt.


Tipps für Profis

  • Nutze die Möglichkeit von Schaltflächen: Du kannst mehrere Buttons erstellen, um zu verschiedenen Zeiträumen (z.B. zum nächsten Monat) zu springen.
  • Verfeinere den Code: Füge Fehlermeldungen hinzu, um Benutzer besser zu informieren, wenn etwas nicht funktioniert.
  • Verwende dynamische Bereiche: Um die Effizienz zu erhöhen, kannst Du auch dynamische Bereiche verwenden, um nur die relevanten Daten zu durchsuchen.

FAQ: Häufige Fragen

1. Wie kann ich den aktuellen Monat in Excel anzeigen?
Du kannst die Funktion =HEUTE() verwenden, um das aktuelle Datum zu erhalten, und dann =TEXT(HEUTE(); "MMM JJ") verwenden, um den aktuellen Monat anzuzeigen.

2. Ist der VBA-Code in allen Excel-Versionen gleich?
Ja, der VBA-Code funktioniert in den meisten modernen Excel-Versionen (Excel 2010 und höher). Achte darauf, dass du die Entwicklertools aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige