Office: Suchroutine mit Problemen beim Datum-Suchen

Hallo zusammen,

ich habe eine Tabelle, die ich mittels UserForm fülle.
Das UserForm beinhaltet auch eine TextBox, wo man ein Suchbegriff eingeben kann, wonach dann die Tabelle durchsucht wird. Die Ergebnisse werden in einer ListBox im Userform angezeigt.

Klickt man nun auf eines der Ergebnisse, so werden die Eingabefelder mit dem Eintrag aus der Tabelle gefüllt, damit man diesen Eintrag bearbeiten kann.

Hier erstmal der Code, den ich dafür nutze:

Code:

Private Sub Search_Click()                                                  'Suchfunktion
Dim rng As Range
Dim strFirst As String
Dim vtmp() As Long
Dim IntC As Integer
Dim Spalte_1 As String
Dim Spalte As Long
Dim Zeile As Long

Zeile = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Spalte = ActiveSheet.Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
Spalte_1 = Split(Cells(1, Spalte).Address, "$")(1)

If Len(Trim(TextBoxSuch)) = 0 Then Exit Sub                                 'Bei leerer Suche Routine verlassen
Suchergebnis.Clear                                                          'Alte Suchergebnisse löschen
For IntC = 1 To 12                                                          'Eingabefelder leeren
   Controls("TextBox" & IntC) = ""
Next
Controls("ComboBox1") = ""
ReDim vtmp(0)

With Sheets("Tabelle1")
   Set rng = .Range("A3:" & Spalte_1 & Zeile).Find(What:=TextBoxSuch, Lookat:=xlPart)        'Suchbereich festlegen
   If Not rng Is Nothing Then                                               'Wenn Suche erfolgreich
      strFirst = rng.Address
      Do
         If Not (IsNumeric(Application.Match(rng.Row, vtmp, 0))) Then
            ReDim Preserve vtmp(UBound(vtmp) + 1)
            vtmp(UBound(vtmp)) = rng.Row
            Suchergebnis.AddItem .Cells(rng.Row, 1)                             '
            Suchergebnis.List(Suchergebnis.ListCount - 1, 1) = .Cells(rng.Row, 2)   '   Suchergebnis
            Suchergebnis.List(Suchergebnis.ListCount - 1, 2) = .Cells(rng.Row, 3)   '   in
            Suchergebnis.List(Suchergebnis.ListCount - 1, 3) = .Cells(rng.Row, 4)   '   Ausgabebox
            Suchergebnis.List(Suchergebnis.ListCount - 1, 4) = .Cells(rng.Row, 5)   '   übernehmen
            Suchergebnis.List(Suchergebnis.ListCount - 1, 5) = .Cells(rng.Row, 6)   '
            Suchergebnis.List(Suchergebnis.ListCount - 1, 6) = .Cells(rng.Row, 7)   '
            Suchergebnis.List(Suchergebnis.ListCount - 1, 7) = .Cells(rng.Row, 8)   '
            Suchergebnis.List(Suchergebnis.ListCount - 1, 8) = .Cells(rng.Row, 9)   '
            Suchergebnis.List(Suchergebnis.ListCount - 1, 9) = rng.Row              '
         End If
         Set rng = .Range("A3:" & Spalte_1 & Zeile).FindNext(rng)                            ' Nächste Übereinstimmung suchen
      
      Loop While Not rng Is Nothing And rng.Address <strFirst> 0 Then
   Suchergebnis.ListIndex = 0
Else
   Suchergebnis.AddItem "No Entry found!"                                         ' Falls keine Ãœbereinstimmung erscheint: Kein Eintrag
End If
Set rng = Nothing
End Sub

Im Großen und Ganzen funktioniert das auch alles problemlos, allerdings habe ich ein Problem, wenn ich nach einem bestimmtem Datum oder Teil eines Datums suche.
Ich habe 2 Spalten, jeweils mit Terminen gefüllt. Die Anzeige ist mmm yyyy (Monatsabkürzung englisch), der Inhalt der Zelle im Format dd.mm.jjjj. Suche ich nun nach einer Jahreszahl z.B. 2009 gibt es keine Problem, aber ich kann z.B. nicht nach einem Monat suchen.

Muss ich hierfür irgendwie den Suchbegriff modifizieren, oder ist der Befehl für Datumssuche ein andere.
Ich könnte dann nämlich eine CheckBox setzen, so dass wenn die aktiv ist die Eingabe als Teil eines Datums interpretiert wird und dann eben nur die Datums-Spalten durchsuchen.

Ich hoffe es wird klar, was mein Problem ist. Ich hoffe mir kann jemand helfen.

Gruß
Christian

 

Ok sorry Leute, hat sich erledigt. Ich bin ein Blindfisch.

Ich hatte den Code mit Copy und Paste kopiert und wie ein Maulwurf davor gesessen. Dabei hat nur der kleine zusatz

Code:

 LookIn:=xlValues

gefehlt.