IftxtSearch
25.05.2009 12:48:12
friedrich
mit der Form 220704h.htm
ClassModule: frmSearch
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdSearch_Click()
Dim rng As Range
If txtSearch.Text = "" Then
Beep
MsgBox "Bitte Suchbegriff eingeben!"
txtSearch.SetFocus
Exit Sub
End If
Set rng = Columns(1).Find( _
What:=txtSearch.Text, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
rng.Select
End Sub
Sub CallForm()
frmSearch.Show
End Sub
möchte ich in Spalte A von Tabellen eine Zahl finden, die ich mit einer TextBox Eingabe nenne. (5bis6 Stellen)
Leider komme ich nicht weiter als
If txtSearch.Text= "" Then.
Es erfolgt Laufzeitfehler '424' Objekt erforderlich
Somit kommt die Suchfunktion nicht in Gang.
Welcher Kenner im Forum kann mir dabei bitte weiterhelfen?
Mit bestem Dank im voraus und Grüßen
Friedrich