Office: (Office 2010) Excel VBA Datum vergleichen

Hallo,

ich habe folgendes Problem:

ich will ein Datumsbereich vergleichen z.B. Spalte I ist ein Datum "04.01.2020" eingetragen. In Spalte J "18.04.2021".
In ein neuen Tabellenblatt ist dann als Überschrift das Jahr z.B. 2020 und darunter von Januar bis Dezember jeder Monatsname eingetragen.
und unter den jeweiligen Monat falls der Zeitraum passt soll es mir eine 1 eintragen und wenn es nicht drin ist eine 0.
Leider habe ich dazu weder ein anhaltpunkt wie ich es realisiere noch einen Code gefunden.

Könnte einer mir dabei helfen wäre dafür sehr dankbar.

Grüße

Harun

 

Hola,

warum VBA? Das geht auch bequem mit Formeln. Dazu wäre aber eine Beispieldatei hilfreich.

Gruß,
steve1da

 

Hallo Steve,

leider kann ich keine Bilder hochladen ich versuche es ungefähr zu schreiben.

Spalte I Spalte J
04.06.2020 14.09.2020
18.01.2020 03.12.2020
27.10.2021 21.12.2021
usw.

nächstes Tabellenblatt

von Spalte E-P 2020

Spalte E Spalte F Spalte G
Januar Februar März usw.

Spalte Q-AB 2021

Spalte Q Spalte R Spalte S
Januar Februar März usw.

und unter den richtigen Datumsbereich soll eine 1 wenn es der Datum ist und eine 0 wenn es nicht in den Zeitraum ist rein.

Gruß

Harun

 

Hola,

Bilder sind auch nicht hilfreich. Eine Exceldatei schon.

Gruß,
steve1da

 

Hi,

konnte nur ein ausschnitt rein setzen weil da Personen bezogene Daten drin sind aus Datenschutzgründen ich die nicht gesamte Excel reinsetzen kann.

Ps.: Hoffe hat geklappt das man das sieht.


Gruß

Harun

 

Hola,

bitte keiner Bilder!

Gruß,
steve1da

 

Hi,

okey habe die Datei so rauskopiert und in eine neue Excel eingefügt.

Gruß


Harun

 

Hola,

da stehen jetzt 24 Zeiträume. Leider hast du kein Wunschergebnis eingetragen. Wie soll denn Tabelle2 am Ende aussehen? Dort sind nur 22 Zeilen vorgesehen.

Gruß,
steve1da

 

Hi,

der im ersten Tabelle sollen die Zeiträume Auftragsdatum Abgabetermin verglichen werden. Wenn im Zeitraum Auftragsdatum z.B. 12.01.2020 und Abgabetermin z.B. 27.03.2020 steht soll es in Tabelle 2 dann in der Spalte unter Januar bis März eine 1 eingetragen werden unter 2020 und den Rest alle eine 0. Hoffe hast verstanden was ich meine.

Danke im Voraus.


Gruß

Harun

 

Das ist schon klar. Da du aber quasi jeden Zeitraum abgedeckt hast, würde in Zeile 3 in jeder Zelle eine 1 stehen. Willst du das so haben?

=WENN(ZÄHLENWENNS(Tabelle1!$A$2:$A$25;"<="&A$2;Tabelle1!$B$2:$B$25;">="&A$2);1;"")

Damit die Formel funktioniert habe ich allerdings die Monatsnamen per Formel erzeugen müssen.
In A2 kommt:
01.01.2020
in B2 kommt:
=EDATUM(A2;1)
B2 nach rechts ziehen. Die Zellen jetzt benutzerdefininiert mit MMMM formatieren.

 

Die Datum Tage sind fix die sollten nicht verändert werden, und es sollen Zellenweise gesehen und wenn es abgearbeitet ist nächstes Datum nächste Zelle.
Mit EDATUM ist das von wird mein fixes Datum gelöscht das will ich nicht haben. Es sollte nur in die erste Zeile dann von Februar bis September 2020 eine 1 haben und alles andere eine 0. Dann nächste Zeile von März bis Dezember 2020 eine 1 Rest 0.

Ich setze mal die Excel so rein was ich meine.

 

Wenn sie nicht verändert werden sollen, was stört dich an der Formel EDATUM()? Verstehe ich nicht.
Dann reicht nämlich folgende Formel:
=WENN(UND(A$2>=Tabelle1!$A2;A$2<=Tabelle1!$B2);1;0)

 

Wenn ich das einsetze spuckt es bei mir bei allen eine 0 raus und keine 1 ist dabei klappt nicht ganz diese Formel.

 

Dann hast du die Monatsangaben immer noch als TEXT in der Datei stehen. Dann kann da auch nicht funktionieren weil für Excel da nur ein Wort steht.

 

Kannst du es mir mal schicken wie du es gemacht hast habe auch die Monate auch als Zahl gemacht kommt trotzdem nicht das raus was ich haben will :S