HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Datumswerte vergleichen bei untersch. Formaten
Nicole

Guten Morgen,
ich möchte zwei Datumsfelder vergleichen. Das Problem ist, dass ein Datum ein Textformat hat:
200912 (als Text)
und das andere ein Datum als Datumsformat:
tt.mm.jj (10.12.09)
Wie schaffe ich es, diese über den Monat und das Jahr zu vergleichen in VBA?
Vielen Dank schon im voraus.
Nicole

AW: Datumswerte vergleichen bei untersch. Formaten
ede

Hallo Nicole,
du kannstper Formel dein Datum in Text umwanden und dan mit dem anderen vergleichen!
schau mal in den funktionen nach text(), monat() jahr().
gruss
AW: Datumswerte vergleichen bei untersch. Formaten
Hajo_Zi

Hallo Nicole,
es muss nicht alles über VBA gelöst werden.
Tabelle2
 CDE
2420091210.12.09Gleich
2520091311.12.09Ungleich

verwendete Formeln
Zelle Formel
E24 =WENN(UND(JAHR(D24)=LINKS(C24;4)*1;MONAT(D24)=RECHTS(C24;2)*1);"Gleich";"Ungleich")
E25 =WENN(UND(JAHR(D25)=LINKS(C25;4)*1;MONAT(D25)=RECHTS(C25;2)*1);"Gleich";"Ungleich")

Tabellendarstellung in Foren Version 4.31



=TEXT(A2;"0000-00")=TEXT(B2;"JJJJ-MM") owT
Rudi

ich Trottel: =A2=TEXT(B2;"JJJJMM") owT
Rudi

AW: ich Trottel: =A2=TEXT(B2;"JJJJMM") owT
Nicole

danke erst einmal für die Lösung. Was ich Dussel natürlich vergessen habe zu sagen: die Daten werden automatisiert eingespielt, da sich diese immer ändern. Darum wird vorher alles gelöscht. So können ja auch leider die Formeln nicht gehalten werden.
So komm ich um VBA wohl nicht drumrum.
AW: ich Trottel: =A2=TEXT(B2;"JJJJMM") owT
Hajo_Zi

Hallo Nicole,
die Spalte mit den Formeln baucht doch nicht gelöscht werden.
Gruß Hajo
Formel per VBA
Rudi

Hallo,
dann füge auch die Formel per Code ein.
JJJJMM in A, Datum in B, Formel in C. 
Sub FormelRein()
With Sheets(1)
.Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Offset(, 2).FormulaR1C1 = _
"=RC[-2]=TEXT(RC[-1],""JJJJMM"")"
End With
End Sub

Gruß
Rudi
AW: ich Trottel: =A2=TEXT(B2;"JJJJMM") owT
Nicole

dankeschön euch beiden für die Mühe.
Geht jetzt.
Nicole