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

Datum vergleichen geht nicht

Forumthread: Datum vergleichen geht nicht

Datum vergleichen geht nicht
16.09.2004 20:02:47
Barbara
Folgendes Problem:
Mit Folgendem würde ich gerne in der Zeile 3 die Zelle finden, die den Wert von Geburtstag (05.07.91) hat.
Set ZelleDatum = Range("3:3").Find(Geburtstag)
Doch diese Zelle wird nicht gefunden, obwohl in E3 auch "05.07.91" steht.
Ich vermute nun, dass ich mit einem Textstring ("05.07.91") ein formatiertes Datum nicht finden kann? Nur, wie suche ich denn dann?
Diesen Textstring habe ich aus einer anderen Datumszelle rausgelesen.
Muss ich da was umwandeln, um es vergleichbar zu machen?
Nebenfrage: Wie finde ich auf dieser grossartigen Seite andere Postings zu diesem Thema. Gibt es da wo eine Suchfunktion? Hab nix gefunden.
Danke, LG, Barbara.
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Versuchs mal mit Home-> Excel Recherche
RAnton
Gruß
Anton
AW: Datum vergleichen geht nicht
PeterW
Hallo Barbara,
was ist denn bei dir Geburtstag? VBA "versteht" nur englisch! Folgendes klappt problemlos:

Sub Bereich()
Dim ZelleDatum As Range
Dim Geburtstag As Date
Geburtstag = #7/5/1991# 'Datum im englischen Format!!
Set ZelleDatum = Range("3:3").Find(Geburtstag)
MsgBox ZelleDatum.Column
End Sub

Gruß
Peter
Anzeige
AW: Datum vergleichen geht nicht
16.09.2004 20:40:44
Barbara
Hallo Peter,
danke für Deine Hilfe, aber den Geburtstag kann ich nicht eingeben, den holt sich das Makro aus einer anderen Zelle, in dem das Datum steht.
Da steht eben schon vorher:
Geburtsgag = Worksheets("Liste").Cells(6, 3)
Und daher hat diese Variable das Datum. Und dieses lässt sich nicht mit anderen Datumszellen vergleichen.
Anzeige
AW: Datum vergleichen geht nicht
PeterW
Hallo Barbara,
wenn das Datum aus einer Zelle eingelesen wird geht das auch (GeburtsGAG dürfte eher ein Tippfehler hier im Forum sein). Der Ansatz wurde getestet und funktioniert. Vielleicht hilft eine Beispielmappe von dir weiter.
Gruß
Peter
AW: Datum vergleichen geht nicht
Bert
In welcher Form steht das datum in der Zelle, als Zahl oder Text?
Bert
Anzeige
AW: Datum vergleichen geht nicht
16.09.2004 21:10:40
Barbara
Also nochmals genauer:
In den Zelle C6 und B3 steht das Datum 03.01.1971 im Datumsformat.
Jetzt gebe ich der Variablen q das Datum, um ganz sicher zu gehen.
Und dann suche ich q in der dritten Zeile, wo es aber drinnen steht (in B3 eben).
q = Cells(6, 3)
Set ZelleDatum = Range("3:3").Find(q)
Trotzdem ist Zelledatum "Nothing", das heisst der Suchvorgang ging ins Leere.
Anzeige
AW: Datum vergleichen geht nicht
16.09.2004 21:16:45
Matthias
Hallo Barbara,
also mit Typdeklarationen geht es:

Sub test()
Dim q As Date
Dim ZelleDatum
q = Cells(6, 3)
Set ZelleDatum = Range("3:3").Find(q)
MsgBox ZelleDatum.Address
End Sub

Gruß Matthias
AW: Datum vergleichen geht nicht
16.09.2004 21:32:47
Barbara
Hallo Matthias
bei mir geht es nicht. Ich hab Dein Programm rüberkopiert, ZelleDatum ergibt "Nothing" und in Folge gibt es bei Msgbox eine Fehlermeldung.
LG, barbara
Anzeige
AW: Datum vergleichen geht nicht
Bert
Die Version ist halt nicht ohne Relevanz! In E 97 hatte find so seine Schwierigkeiten mit Datumwerten. Ich weiß nicht mehr genau, aber man musste da Lookin:=xlValues
angeben(kann aber auch genau anders gewesen sein: Lookin:=xlFormulas).
Probier das mal aus, bei dir ist ja Lookin:= gar nicht angegeben.
Bert
Anzeige
AW: Datum vergleichen geht nicht
17.09.2004 00:14:54
Barbara
Habe die Lösung selbst gefunden.
Es geht mit CDate. Dies wandelt das Datum richtig um, sodaß es in die Find-Funktion eingesetzt werden kann.
Set ZelleDatum = Range("E3:F3").Find(CDate(q))
Bin durch Zufall draufgekommen.
;

Forumthreads zu verwandten Themen

Suche nach Datum funktioniert nicht
Gruni

Hallo Forum,
folgendes Problem beschäftigt mich seit einiger Zeit.
In einer Zelle steht diese Formel drin
=DATUM(2013;1;1)
Die Zelle ist als Datum kurz formatiert.
Folglich steht in der Zelle der 01.01.2013
Jetzt möchte ich dieses Datum suchen... geht aber nicht.
Sel...
21.06.2013 10:25:57
Thread-ID: 1318875
12 Beiträge
Datumssuche mit FIND funktioniert nicht
japes36

Hallo zusammen,
ich habe eine auf's Nötigste geschrumpfte Beispieldatei hochgeladen.
Ich benötige als Ziel mal irgendwann die Spaltennummer eines Von-Bis Datumsbereichs für eine Auswertung.
Ich habe das Gleiche auch schon in anderen Dateien gemacht und es funktioniert einwandfrei. N...
18.06.2018 14:15:48
Thread-ID: 1629249
10 Beiträge
Anzeige
Hilfe Datumsformel funktioniert nicht
Jo

Ein Hallo an alle Spezialisten,
ich habe eine Arbeitsmappe bei der sehr viel vom Datum abhängt.
Erst jetz ich mir aufgefallen, dass das mitgezähle Datum nicht stimmt. Im Arbeitsblatt "Wochenverkauf" sind 2 Seiten In Zelle B2 wird das Datum eingegben und der 1.7. ist immer fix nur das Ja...
05.09.2018 14:35:58
Thread-ID: 1643546
9 Beiträge
Sortieren nach Datum funktioniert nicht
Pascal
Hallo zusammen
Ich habe folgendes Problem:

Wenn ich meine Liste mit einem Datum eines anderen Blattes sortieren möchte, erscheint nach der Übernahme des Datums in den Filter (Benutzerdefiniert) nur die entsprechende 5-Stellige Zahl des Datums. Wer kann mir helfen???

Im weiteren...
30.10.2003 13:51:51
Thread-ID: 331073
3 Beiträge
Automatische Datumsvergabe funktioniert nicht
Juie
Hallo Excelianer,

ich sollte in einer Datei immer das letzte Speicherdatum haben.
Dafür habe ich im Objekt "DieseArbeitsmappe" folgenden Code eingefügt.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ThisWorkbook.Sheets(8).Range("P1").Value = Now...
10.11.2003 15:17:33
Thread-ID: 335922
4 Beiträge
Suchen eines Datumswertes Code funktioniert nicht
Markus
Hallo Leute,
folgender Code

Dim Erstes_Gewicht1, Letztes_Gewicht1 As Date
Erstes_Gewicht1 = Range("J2")
Letztes_Gewicht1 = Range("K2")
'
Dim h, hlast As Long
Dim h1, h2 As Long
Dim found11, found22 As Boolean
Dim Meldung2 As String
Tabelle3.Activ...
18.11.2003 09:47:16
Thread-ID: 339602
2 Beiträge
Datum formatieren funktioniert nicht
Markus
Hallo Leute,

Ich habe folgendes Datumsformat 2003-10-27 06:33:20 und möchte dieses umwandeln in 27.10.2003 06:33:20 mit einer Formatierung der Zelle habe ich es schon probiert die Anzeige ist Ok aber wenn ich diesen Wert in einem Makro verwende gibt es Probleme

Danke für Eure Mühe<...
18.11.2003 14:04:20
Thread-ID: 339802
5 Beiträge
SUMMEWENN bei Datumsvergleich funktioniert nicht
Frank

Hallo,
ich werde wahnsinnig! Kann mir bitte jemand sagen, wie ich aus einer Datumsliste die Anzahl der Einträge herausbekomme, die zwischen zwei Zeitpunkten liegen? Oder einfacher: die kleiner sind als ein Referenzdatum?
Ich habe es mit ZÄHLENWENN ausprobiert und mit SUMMEWENN (auf eine...
01.01.1970 00:00:00
Thread-ID: 400793
6 Beiträge
Datums select mit Makro funktioniert nicht ?!
Heribert

Hallo Forum, einen schönen Sonntag.
Mein Problem : Makro:Springe in Zeile mit akt. Datum,
Ich finde nicht heraus warum es bei mir nicht funktionieren will.
Es kommt keine Fehlermeldung, aber die Zeile wird auch nicht angesprungen.
Liegt es doch an der Formatierung (TTT TT.MM.J...
02.10.2005 10:41:32
Thread-ID: 675648
4 Beiträge
Datums Filter funktioniert nicht!
Raphael

Hallo Zusammen!
ich habe ein problem mit meinem FilterMacro!
wenn ich es Starte läuft es durch, gibt mir aber keine Werte! (Ich filter nach einem Datum)
erst wenn ich dann ncohmals in den Filter unter Benutzerdefiniert reingehen, und dort OK drücke funktioniert es! kann mir jemand s...
18.06.2007 08:11:23
Thread-ID: 878825
12 Beiträge
Sortieren nach Datum funktioniert plötzlich nicht mehr
Adic44
Hallo liebe Community,

ich habe folgende Tabelle (Siehe Anhang) verwendet, um die Spritkosten bei uns zu verfolgen.
https://www.herber.de/bbs/user/172749.xlsx

Nachdem wir die Tabelle nach dem günstigsten Preis pro Liter sortiert haben, lässt sich die Tabelle plötzich nicht me...
10.10.2024 07:45:53
Thread-ID: 1993365
8 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Probleme beim Excel-Datum vergleichen lösen

Schritt-für-Schritt-Anleitung

Um in Excel ein Datum zu vergleichen und gezielt eine Zelle zu finden, folge diesen Schritten:

  1. Datum deklarieren: Stelle sicher, dass das Datum, das du vergleichen möchtest, korrekt deklariert ist. Verwende das englische Datumsformat, wenn du mit VBA arbeitest.

    Dim Geburtstag As Date
Geburtstag = #7/5/1991# ' Beispiel für das englische Format

  2. Datum aus einer Zelle einlesen: Wenn das Datum aus einer anderen Zelle kommt, kannst du es so zuweisen:

    Dim q As Date
q = Worksheets("Liste").Cells(6, 3) ' Datum aus Zelle C6

  3. Datum finden: Nutze die Find-Methode, um das Datum in einer bestimmten Zeile zu suchen.

    Dim ZelleDatum As Range
Set ZelleDatum = Range("3:3").Find(CDate(q)) ' CDate konvertiert das Datum

  4. Ergebnis überprüfen: Überprüfe, ob das Datum gefunden wurde.

    If Not ZelleDatum Is Nothing Then
   MsgBox "Datum gefunden in: " & ZelleDatum.Address
Else
   MsgBox "Datum nicht gefunden!"
End If

Häufige Fehler und Lösungen

  • Problem: Set ZelleDatum = Range("3:3").Find(q) ergibt Nothing.

    • Lösung: Stelle sicher, dass q ein korrekt formatiertes Datum ist. Verwende CDate(q).

  • Problem: Die Find-Methode funktioniert nicht in älteren Excel-Versionen.

    • Lösung: Bei Excel 97 kann es nötig sein, LookIn:=xlValues hinzuzufügen:
    Set ZelleDatum = Range("3:3").Find(q, LookIn:=xlValues)

Alternative Methoden

Falls die Find-Methode nicht wie gewünscht funktioniert, gibt es alternative Ansätze:

  • Schleifen: Durchlaufe die Zellen in einer Zeile und vergleiche die Werte:

    Dim Zelle As Range
For Each Zelle In Range("3:3")
   If Zelle.Value = CDate(q) Then
       MsgBox "Datum gefunden in: " & Zelle.Address
       Exit For
   End If
Next Zelle

  • Filter: Nutze die Autofilter-Funktion in Excel, um nur die Zellen anzuzeigen, die das gesuchte Datum enthalten.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du das Excel-Datum vergleichen kannst:

  1. Datum aus einer Zelle finden:

    Sub DatumSuchen()
   Dim q As Date
   q = Worksheets("Liste").Cells(6, 3)
   Set ZelleDatum = Range("3:3").Find(CDate(q))
   If Not ZelleDatum Is Nothing Then
       MsgBox "Datum gefunden: " & ZelleDatum.Address
   Else
       MsgBox "Datum nicht gefunden!"
   End If
End Sub

  2. Mit einer Benutzereingabe arbeiten:

    Sub BenutzerDatumSuchen()
   Dim BenutzerDatum As String
   BenutzerDatum = InputBox("Bitte Datum eingeben (TT.MM.JJJJ):")
   Set ZelleDatum = Range("3:3").Find(CDate(BenutzerDatum))
   If Not ZelleDatum Is Nothing Then
       MsgBox "Datum gefunden: " & ZelleDatum.Address
   Else
       MsgBox "Datum nicht gefunden!"
   End If
End Sub

Tipps für Profis

  • Datumsformate beachten: Achte darauf, dass die Datumsformate in deinen Zellen und im Code übereinstimmen, um sicherzustellen, dass excel datum vergleichen problemlos funktioniert.

  • Fehlerbehandlung einbauen: Verwende On Error Resume Next, um Fehler während der Ausführung abzufangen und damit die Benutzerfreundlichkeit zu verbessern.

  • Benutze Format-Funktion: Wenn du Datumswerte vergleichen willst, kannst du die Format-Funktion verwenden, um sicherzustellen, dass die Formate übereinstimmen.

FAQ: Häufige Fragen

1. Warum funktioniert das Datum vergleichen nicht? Die häufigste Ursache ist, dass das Datum im falschen Format vorliegt oder als Text anstatt als Datum gespeichert ist.

2. Wie kann ich sicherstellen, dass mein Datum korrekt ist? Verwende die CDate-Funktion, um sicherzustellen, dass dein Datum in ein korrektes Datumsformat umgewandelt wird, bevor du den Vergleich vornimmst.

Beliebteste Forumthreads (12 Monate)

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