Hallo Scotty,

wenn Du uns noch verrätst, um welche Art einer TextBox es sich handelt (Textbox in einem Tabellenblatt, in einer UserForm oder....) und in welchem Bereich des Tabellenblattes nach dem Datum gesucht werden soll, gibt es bestimmt eine Lösung. Aber so wird es schwer.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,

die Textbox ist in einer Userform plaziert. Es soll im gesamten Tabellenblatt gesucht werden.


MfG

Scotty

Hallo Scotty,

sollte mit den nachfolgenden Code funktionieren. Kopiere den Code in das VBA-Projekt der UserForm, in der sich das Textfeld befindet. Außerdem muss die UserForm einen Button mit der Bezeichnung "CommandButton1" beinhalten.

[b]Option Explicit

Private Sub CommandButton1_Click()
Dim Letzte_Zeile As Long, Wiederholungen As Long, _
Suchbegriff As Range, Addresse As String
With Worksheets(1).Range("A1:IV65536")
Set Suchbegriff = .Find(What:=CDate(TextBox1), LookIn:=xlValues)
If Not Suchbegriff Is Nothing Then
Addresse = Suchbegriff.Address
Do
Suchbegriff.Interior.ColorIndex = 4
Set Suchbegriff = .FindNext(Suchbegriff)
Loop While Not Suchbegriff Is Nothing And Suchbegriff.Address <> Addresse
End If
End With
End Sub[/b]

Hier wird alles durchsucht und die übereinstimmenden Datumswerte grün gekennzeichnet.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}