Office: Datum Suchen

Hallo!

Situation:
In einem Formular wird ein Name einer Produktionsmaschine eingetragen. In einem anderem Textfeld steht das Lieferdatum. Bei klicken auf "Speichern" wird das Lieferdatum basierend der Produktionsmaschine geprüft. Zwecks Revisionszeiten usw.
Beispiel heute: Lieferdatum ist 26.02.2025, Excel findet den Eintrag 26.12.2025 das logischerweise falsch ist.
Gesucht wird mit mittels

Code:

Set Suche = Sheets("Feiertage").Range("D14:D64").Find(What:=Lieferdatum, LookIn:=xlValues, lookat:=xlPart)

In den letzten Jahren hat das immer problemlos funktioniert seit dem Jahreswechsel nicht mehr. Hat oder hatte von euch auch wer diese Problematik?

Excel 365 aktuelle Version

Danke im Voraus.

SG

 

Hallo,

warum verwendest du statt
Set Suche = Sheets("Feiertage").Range("D14:D64").Find(What:=Lieferdatum, LookIn:=xlValues, lookat:=xlPart)
nicht folgende Formel:
Set Suche = Sheets("Feiertage").Range("D14:D64").Find(What:=Lieferdatum, LookIn:=xlValues, lookat:=xlWhole)

Bei erstgenannter Formel sucht VBA nach einer teilweisen Übereinstimmung, während bei der zweiten Formel der ganze "Wert" übereinstimmen muss.

Oder hast du das Lieferdatum statt als Datumswert als Datumstext eingegeben?
Der Datumswert ist 45714, während der Datumstext "26.02.2025" ist, sodass aufgrund von xlPart VBA den "26."-er findet.

Microsoft-Hilfe-Link:
Range.Find-Methode (Excel) | Microsoft Learn

 

Hallo Excel 121150!

Danke für die rasche Antwort.

Manchmal hat man ein Brett vorm Kopf. Funktioniert soweit. Mit der Umstellung auf "xlWhole".

Danke

 

Hallo KlausPeter,

ergänzend noch der Hinweis, dass Excel bei der Suche über Find bei Datumsangaben teilweise etwas "zickig" ist. Deshalb arbeite ich da nach Möglichkeit mit der Funktion Match. Der Nachteil dabei ist, dass die Suche jeweils nur über eine Spalte oder Zeile gehen kann, während Find auch in Bereichen funktioniert.

Code:

Option Explicit

Sub Beispiel()
    Dim LDatum As Long, varRow
    
    'Beispiel Datum als Ganzzahl (Long)
    LDatum = CDate("17.01.2009")
    
    'varRow als Variant, wegen der Rückgabe
    varRow = Application.Match(LDatum, Columns(1), 0)
    
    'Datum wurde gefunden, varRow ist eine Zahl
    If IsNumeric(varRow) Then
        Cells(varRow, 1).Select
    End If
    
End Sub

 

Hallo Klaus-Dieter!

Schöner Name ;)
Danke für diese Version der Suche. Die kannte ich nicht. Ich werde sie bei Gelegenheit probieren.
SG