Makro mit Weitersuchen
20.08.2002 20:36:40
Günther Nebel
Da hab ich folgendes Makro und schaff es nicht das Ding weitersuchen zu lassen. Ich möchte demnach bei der ersten Meldung das ERgebnis in einer Msg-Box angezeigt bekommen (steht in Spalte E und ist immer ein Hyperlink) mit den Schalftflächen weitersuchen oder abbrechen.
Kann mir da jemand helfen?
so siehts bislang aus:
Sub Suchen()
Dim rngFind As Range
Dim strFind As String
strFind = InputBox("Suchbegriff eingeben, z.B. Aktenvermerk WICHTIG: Suchen Sie auch mit Wildcards, Beispiel: *ZBS*, oder Akten*")
If strFind = "" Then Exit Sub
Set rngFind = Columns(1).Find(strFind, lookat:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Rows(rngFind.Row).Select
End Sub