In Spalte 1 auf Sheets(1) stehen Datumsangaben; die Spalte ist jedoch auch als "Datum" formatiert also nicht als Text oder Standard
ein Zellinhalt ist z.Bsp. der 12.12.2011
auf meiner Userform habe ich eine Textbox eine Listbox und ein Commandbutton
in die Textbox gebe ich jetzt als Suchwert "12." oder ".12." ein; mit meinem Ansatz hier habe ich keinen Treffer (bei Spaltenformatierung auf Text funktionierts, die Spalte muss aber Datum bleiben
Wie geht´s richtig?
Private Sub CommandButton1_Click()
Set wbs = ThisWorkbook.Sheets(1)
s_txt = UserForm1.TextBox1
Set txt = wbs.Columns(1).Find(s_txt, , , xlPart)
If Not txt Is Nothing Then
UserForm1.ListBox1.AddItem txt.Row
End If
End Sub
Gruß detlef