MsgBox am Ende???
19.02.2004 13:50:05
Ulli
Hab mir mit Hilfe eines VBA Buches ein Makro gebastelt, das eingegebene Werte einer InputBox in der Arbeitsmappe sucht und diese dann markiert. Ich hätte da nun gerne der Schönheit wegen noch am Ende des Suchvorgangs eine Benachrichtigung, ob der gesuchte Begriff gefunden wurde (vielleicht sogar auch wieviel Mal) oder dann die Benachrichtigung das die Datei den gesuchetn Begriff nicht enthält!
Ich hatte schon ne nette Idee zur Lösung, scheitere aber kläglich am Syntax! Kann mir da jemand helfen?
Danke, Ulli
Mein Makro sieht bis jetzt folgendermaßen aus:
Sub Suchfunktion()
Dim s As String
Dim i As Integer
Dim Ergebnis1 As Variant
Dim Ergebnis2 As Variant
s = InputBox("Geben Sie hier bitte den Suchbegriff ein!", "Textsuche")
If s = "" Then Exit Sub
For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(i).Activate
Set Ergebnis1 = Sheets(i).Cells.Find(s)
If Not Ergebnis1 Is Nothing Then
Ergebnis2 = Ergebnis1.Address
Do
With Ergebnis1
.Activate
.Interior.ColorIndex = 24
End With
Set Ergebnis1 = Cells.FindNext(After:=ActiveCell)
On Error Resume Next
If Ergebnis1.Address = Ergebnis2 Then Exit Do
Ergebnis1.Interior.ColorIndex = 24
Loop
End If
Next i
Sheets("Tabelle1").Select
End Sub