UserForm, Textboxen
16.12.2003 10:40:39
Ilona
hätte da wieder mal ein Problemchen.
Ich habe eine Userform mit zwei Textboxen erstellt. Möchte jetzt in die eine Textbox das Startdatum und in die zweite das Enddatum für einen Zeitraum eintragen.
Nun soll in den Spalten H:K nach diesen beiden eingetragenen Datumsangaben gesucht werden. Sind sie vorhanden, sollen die Zeilen in denen diesen Angaben auftreten im zweiten Tabellenblatt ausgegeben werden.
In der Funktion DatumSuchen () habe ich schon mal ein bisschen angefangen, aber es funktioniert schon nicht bei der Eingabe des Datums in der ersten Textbox.
Sub DatumSuchen()
Dim Suchbegriff As Range
Dim SDatumStart As Date
'Wenn in Textbox1 Datum 00.01.00 steht, Prozedur verlassen
If frmZeitraum.DatumStart = "00.01.00" Then Exit Sub
SDatumStart = frmZeitraum.DatumStart.Text
'Datum aus Textbox1 in Spalte A (1) suchen
Set Suchbegriff = Worksheets("Import").Range("H14:K65536"). _
Find(SDatumStart) ', lookat:=xlWhole
If Suchbegriff Is Nothing Then
'Wenn Datum nicht gefunden wurde
MsgBox "Nicht gefunden!"
'Else
'Zeilen im Tabellenblatt2 ausgeben, in denen Datum vorkommt
End If
End Sub
Kann mir jemand helfen. Bin in VBA leider noch nicht so gut.
Vielen Dank an alle Helfer
Ilona