Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Suchfunktion - TextBox kein Text sondern Datum

Betrifft: Suchfunktion - TextBox kein Text sondern Datum von: Frank H.
Geschrieben am: 21.08.2008 15:35:27

Hallo Liebe Excelgemeinde!!!

In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach einem Datum gesucht werden kann.
Allen die helfen können und dies auch tun, bereits herzlichen Dank und nun der Code:


Sub Suchen1()

Dim lng As Long
Dim i As Integer

Application.ScreenUpdating = False
With frmHinweise
 .ListBox1.Clear
 Sheets("Hinweise").Activate
 i = 0
For lng = 3 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 2).Value), LCase(.TextBox1.Value)) > 0 Then
  .ListBox1.AddItem Cells(lng, 2).Value
  .ListBox1.Column(1, i) = Cells(lng, 3).Value
  .ListBox1.Column(2, i) = Cells(lng, 4).Value
  .ListBox1.Column(3, i) = Cells(lng, 5).Row
  i = i + 1
 Else
 End If
Next lng
End With
frmHinweise.Label4.Caption = frmHinweise.Label1.Caption
frmHinweise.Label5.Caption = frmHinweise.Label2.Caption
frmHinweise.Label6.Caption = frmHinweise.Label2.Caption
Application.ScreenUpdating = True

Dim zelle As Range
Dim sBegriff As String

sBegriff = TextBox1.Value
If sBegriff = "" Then Exit Sub
Set zelle = Worksheets("Hinweise").Columns(2) _
    .Find(sBegriff, LookAt:=xlWhole)
    
If zelle Is Nothing Then
    MsgBox "Suchbegriff wurde nicht gefunden!"
    
Else
    MsgBox "Suchbegriff befindet sich in Zelle " & _
    zelle.Address
End If

    zelle.Select

End Sub



M. f. G. frank H.

  

Betrifft: AW: Suchfunktion - TextBox kein Text sondern Datum von: Rudi Maintaire
Geschrieben am: 21.08.2008 15:42:54

Hallo,
versuchs mal mit

sBegriff=CDate(Textbox1)

Gruß
Rudi


  

Betrifft: AW: Suchfunktion - TextBox kein Text sondern Datum von: Frank H.
Geschrieben am: 21.08.2008 16:08:08

Hallo Rudi!!

Danke für dein Interesse, funktioniert aber leider nicht!!!

Gruß Frank H.


  

Betrifft: AW: Suchfunktion - TextBox kein Text sondern Datum von: Frank H.
Geschrieben am: 21.08.2008 16:22:08

Ich bin's noch einmal, habe den Fehler nun selbst gefunden, Danke dir herzlichst!!!

Liebe Grüße!!!

Frank H.


 

Beiträge aus den Excel-Beispielen zum Thema "Suchfunktion - TextBox kein Text sondern Datum"