Datum mit FIND in Excel finden
Schritt-für-Schritt-Anleitung
Um ein Datum in Excel mithilfe der .Find-Methode zu suchen, kannst du die folgenden Schritte befolgen:
-
Öffne den Visual Basic for Applications (VBA) Editor:
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
-
Erstelle ein neues Modul:
- Klicke auf
Einfügen > Modul.
-
Füge den folgenden Code ein:
Sub DatumSuchen()
Dim dte As Date
Dim r As Range
dte = InputBox("Bitte Datum eingeben (TT.MM.JJJJ):")
Set r = Worksheets("Tabelle1").Columns(3).Find(What:=dte, LookIn:=xlValues, LookAt:=xlWhole)
If Not r Is Nothing Then
MsgBox "Datum gefunden in Zelle: " & r.Address
Else
MsgBox "Datum nicht gefunden."
End If
End Sub
-
Führe das Makro aus:
- Drücke
F5 oder gehe zurück zu Excel und führe das Makro über Entwicklertools > Makros aus.
-
Gib das Datum im richtigen Format ein:
- Stelle sicher, dass du das Datum im Format
TT.MM.JJJJ eingibst.
Häufige Fehler und Lösungen
Set r = Worksheets("Tabelle1").Columns(3).Find(What:=CDate(dte), LookIn:=xlValues, LookAt:=xlWhole)
Alternative Methoden
Eine weitere Methode, um ein Datum in Excel zu finden, ist die Verwendung von Application.Match. Hier ist ein Beispiel:
Sub DatumMitMatch()
Dim suchWert As Variant
Dim zeile As Variant
suchWert = InputBox("Bitte Datum eingeben (TT.MM.JJJJ):")
zeile = Application.Match(CDate(suchWert), Worksheets("Tabelle1").Range("C1:C100"), 0)
If Not IsError(zeile) Then
MsgBox "Datum gefunden in Zeile: " & zeile
Else
MsgBox "Datum nicht gefunden."
End If
End Sub
Die Verwendung von Match kann in manchen Fällen schneller sein, wenn du nur den Index der Zeile benötigst.
Praktische Beispiele
-
Ein Datum in einer bestimmten Spalte suchen:
Du kannst den Code so anpassen, dass er nur in einer bestimmten Spalte nach dem Datum sucht, z. B. in Spalte C.
-
Platzhalter verwenden:
Wenn du nach einem Datum mit Platzhaltern suchen möchtest, kannst du den LookAt-Parameter anpassen. Beispiel:
Set r = Worksheets("Tabelle1").Columns(3).Find(What:="*01.01.*", LookIn:=xlValues, LookAt:=xlPart)
Tipps für Profis
-
Verwende LookIn:=xlFormulas: Wenn deine Zellen Formeln enthalten, die Daten zurückgeben, stelle sicher, dass du in Formeln suchst, nicht nur in den Werten.
-
Nutze Application.Find für umfassendere Suchen: Diese Funktion ist flexibler und kann in größeren Datensätzen effizienter sein.
-
Vermeide Typkonflikte: Wenn du sicherstellst, dass Datumswerte konsistent formatiert sind, wirst du weniger Probleme beim Suchen haben.
FAQ: Häufige Fragen
1. Wie kann ich sicherstellen, dass ich im richtigen Datumsformat suche?
Stelle sicher, dass das Datum, das du suchst, im selben Format wie die Daten in deiner Tabelle eingegeben wird. Ein häufiger Fehler ist, dass das Datum als Text gespeichert ist.
2. Was kann ich tun, wenn Find ein leeres Ergebnis zurückgibt?
Überprüfe, ob das Datum tatsächlich im Suchbereich vorhanden ist und ob du die richtigen Parameter wie LookIn und LookAt verwendest. Verwende MsgBox, um den Wert, den du suchst, anzuzeigen und zu bestätigen.