fehlermeldung bei suchmakro
09.12.2005 19:14:52
daniel
Also, habe untenstehendes Ding an einen Button auf meiner Tabelle angehaengt.
Beim Click oeffnet sich ein eingabefenster, ich gebe "irgendwas" ein... und los geht die suche ueber alle tabellen in meiner exceldatei.
Beim treffer fragt er dann ob er denn weitersuchen soll oder nicht. Bei nein, alles bestens und der treffer bleibt selected.
bei weitersuchen gibt er dann eine fehlermeldung.
ich weiss nicht warum?
Private Sub CommandButton9_Click()
'Dim wks As Worksheet
' Dim rng As Range
' Dim strAddress As String, strFind As String
'strFind = InputBox("Bitte Suchbegriff eingeben:", Application.UserName, strSuch)
If strFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find(strFind, lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
strAddress = rng.Address
Do
Application.Goto rng, False
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set rng = Cells.FindNext(After:=ActiveCell)
If rng.Address = strAddress Then Exit Do '(<=HIER FEHLERMELDUNG)
Loop
End If
Next wks
strSuch = strFind
MsgBox "Keine weiteren Fundstellen!", False, Application.UserName
Worksheets(1).Activate
Range("A1").Select
End Sub
Please help
gruss
daniel