Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Suchfunktion - TextBox kein Text sondern Datum
21.08.2008 15:35:00
Frank
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.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion - TextBox kein Text sondern Datum
21.08.2008 15:42:00
Rudi
Hallo,
versuchs mal mit
sBegriff=CDate(Textbox1)
Gruß
Rudi

AW: Suchfunktion - TextBox kein Text sondern Datum
21.08.2008 16:08:00
Frank
Hallo Rudi!!
Danke für dein Interesse, funktioniert aber leider nicht!!!
Gruß Frank H.

AW: Suchfunktion - TextBox kein Text sondern Datum
21.08.2008 16:22:08
Frank
Ich bin's noch einmal, habe den Fehler nun selbst gefunden, Danke dir herzlichst!!!
Liebe Grüße!!!
Frank H.
Anzeige

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige