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

Datum mit Find Methode finden

Forumthread: Datum mit Find Methode finden

Datum mit Find Methode finden
01.05.2025 16:09:41
Chrigu_Atom
Hallo ich bin neu hier

Ich habe einen Code um ein Datum einer Zelle in einem anderen Worksheet zu finden. funktioniert bis anhin einwandfrei. jedoch nicht bei allen:
Datum 09.10.2025 funktioniert
Datum 10.10.2025 kein Ergebnis 

Set CellZeAb = Worksheets("Mitarbeiter_" & Mi).Range("B60:B718").Find(Cells(CellArpl.Row, 1), LookIn:=xlValues, lookat:=xlWhole)


Danke für eure Hilfe
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum mit Find Methode finden
01.05.2025 16:19:25
{Boris}
Hi,

Find in Kombination mit Datümern ist immer ein wenig "heikel".

Ermittel die Position des Datum besser mit Application-Match: 

Sub til()

Dim l As Long

On Error Resume Next

l = Application.Match(Cells(CellArpl.Row, 1), Worksheets("Mitarbeiter_" & Mi).Range("B60:B718"), 0)

On Error GoTo 0

If l Then

    Set CellZeAb = Worksheets("Mitarbeiter_" & Mi).Range("B" & l + 59)

Else

    MsgBox "Datum nicht gefunden"

End If

End Sub


VG, Boris
Anzeige
AW: Datum mit Find Methode finden
01.05.2025 17:16:47
Jowe
Hallo,
und so? 
Sub FindDate()

  Dim searchDate As Date

  searchDate = "29.02.2004"

  With Range("B1:E1000")

    On Error GoTo FBehandler

    MsgBox .Find(What:=searchDate).Address

    .Find(What:=searchDate).Activate

  End With

  Exit Sub

FBehandler:

  MsgBox "Datum existiert im Bereich nicht!!"

End Sub


Gruß
Jochen
Anzeige
AW: Datum mit Find Methode finden
05.05.2025 15:24:39
daniel
Hi
wie die Kollegen schrieben, Datum suchen mit .Find ist schwierig.
wenn man einen vollständigen Kalender hat (jeder Tag vorhanden und aufsteigend sortiert)
kann man das gesuchte Datum auch einfach errechnen:

Zeile = Gesuchtes_Datum - Start_Datum + Erste_Zeile_des_Kalenders

Gruß Daniel
Anzeige
AW: Datum mit Find Methode finden
01.05.2025 16:32:00
RPP63
@Boris!
Sub til() als Prozedurname hat mir ein Lächeln aufs Gesicht gezaubert! :)
Nur ergänzend der Hinweis, dass ich Match immer einer Variant-Variablen zuweise.
Vorteil:
Ich erspare mir On Error, weil Match auch einen Fehler ausgeben darf, der vom Variant akzeptiert wird.
Dann muss natürlich auf IsEror() oder IsNumeric() geprüft werden: 
Sub tiler()

Dim l

l = Application.Match(Cells(CellArpl.Row, 1), Worksheets("Mitarbeiter_" & Mi).Range("B60:B718"), 0)

If IsNumeric(l) Then

    Set CellZeAb = Worksheets("Mitarbeiter_" & Mi).Range("B" & l + 59)

Else

    MsgBox "Datum nicht gefunden"

End If

End Sub


Gruß Ralf
Anzeige
AW: Datum mit Find Methode finden
01.05.2025 18:09:39
Chrigu_Atom
Dank Boris für deine Hilfe funktioniert einwandfrei.
Immer wider schön wenn so rasch ein Lösung geliefert wird.
AW: Datum mit Find Methode finden
01.05.2025 16:47:20
{Boris}
Hi Ralf,

Sub tiler()

Herrlich :-)

Und klar ist das ne gangbare Variante - kommt aber am Ende auf`s Selbe raus.
Und die Verwendung von On Error in Verbindung mit einer einzigen Abfrage, um das mit Goto 0 direkt wieder auszuschalten, halte ich halt nicht für soooo verwerflich ;-)

Wenn ich z.B. prüfen muss, ob ein bestimmter Blattname vorhanden ist, erspar ich mir die Schleife über alle Blätter und weise das Blatt stattdessen quick and dirty ner Variablen zu:

On Error Resume Next
Set Ws = Worksheets("DerBlattname")
On Error Goto 0
If Not Ws Is Nothing then...
...usw.

VG, Boris
Anzeige
AW: Datum mit Find Methode finden
01.05.2025 16:51:53
{Boris}
Aber hier hast Du natürlich Recht - besser als Variant und Abfrage auf IsNumeric.

VG, Boris
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum