Begriffe in Arbeitsmappe suchen VBA
17.03.2004 13:43:58
Wolfgang
hatte mich heute morgen im Bereich Excel-Recherche getummelt und untenstehenden Code entdeckt.- Hierüber soll die Suche nach beliebigen Begriffen in einer Arbeitsmappe laufen.- Funktioniert auch eigentlich so. - Nur, wenn z.B. in der Suchmaske kein Begriff eingegeben ist, kommt nicht die eigentlich vorgesehene Fehlermeldung. Stattdessen erscheint MsgBox Weiter?(Die erscheint ja eigentlich nur dann, wenn ein Begriff gefunden wurde); Der Verfasser, dessen Namen ich mir leider nicht gemerkt habe, hatte seinerzeit wohl diesen Code im Forum veröffentlicht und die Frage gestellt, was umgestellt werden muss, damit sämtliche Tabellenblätter durchsucht werden, nur ein bestimmtes nicht. In meinem Fall heißt das Blatt "Start" - Hat jemand eine Idee bzw. kann sich jemand die kleinen o.a. Fehler erklären? -
Schon jetzt herzlichen Dank für Eure Unterstützung.
Gruß - Wolfgang Berger
Hier der Code:
Sub suchen()
Dim Tabelle As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
Dim blatt
blatt = Application.ActiveSheet.Name
SBegriff = "*" & InputBox("Bitte Suchbegriff eingeben:", "Suchen nach Begriffen/Silben:")
'**********Abbbruch*******
If SBegriff = False Then
MsgBox "Eingabe wurde abgebrochen!"
ThisWorkbook.Sheets(blatt).Activate
Exit Sub
End If
If SBegriff = "**" Then
MsgBox "Es wurde nichts eingeschrieben oder abgebrochen!"
Exit Sub
End If
'*********Abbruch ende*****
For Each Tabelle In Worksheets
Tabelle.Activate
Set GZelle = Tabelle.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter?", vbYesNo + vbQuestion,) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Tabelle
ThisWorkbook.Sheets(blatt).Activate
MsgBox "Nichts mehr gefunden - Ende !"
End Sub