Suchen
07.11.2003 11:52:44
Lucien
Ich habe folgendes Makro zum Suchen in verschiedenen zellen.
Sub suchen
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = TextBox1
If sFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
LookAt:=xlPart, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If rng.Address = sAddress Then Exit Do
Loop
End If
Next
End Sub
Nun möchte ich hinzufügen wenn er nichts gefunden hat dass dies in msgbox gesagt wird und das Makro abgebrochen wir.
Hat er es gefunden soll dies ebenfalls in eine msgbox gesagt werden
Ich habe es schon versucht aber ich bekomme immer dide 2 msgboxes ob er es gefunden hat oder nicht.
Wer kann helfen
danke und gruss lucien