Hilfe bei Suchmakro
charlie33
Ich benötige mal etwas Hilfe bei folgendem Suchmakro:
eine Excelmappe mit einem Tabellenblatt, das Modul wird über einen Button aufgerufen
Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim loZaehler As Long
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
If sFind "" Then
For Each wks In Worksheets
wks.Protect password:="xxxxx", userinterfaceonly:=True
Set rng = wks.Cells.Find(what:=sFind, _
lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
loZaehler = loZaehler + 1
sAddress = rng.Address
Do
Application.GoTo rng, True
If MsgBox(prompt:="Weiter suchen?", _
Buttons:=vbYesNo + vbQuestion) = vbNo Then Exit For
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
If loZaehler = 0 Then MsgBox prompt:="Keine neue Fundstelle!"
Sheets("Startseite").Select
End If
End Sub
1. Derzeit wird das gesamte Tabellenblatt durchsucht. Wie muss der Code geändert werden, dass nur die Spalte A durchsucht wird ?
2. Wenn der richtige Eintrag gefunden worden ist und man aber trotzdem bei Weiter suchen auf ja klickt, so erscheint folgende Fehlermeldung: Die Methode Goto für das Objekt _Application ist fehlgeschlagen (Laufzeitfehler1004). Wie muss hierzu der Code umgeschrieben werden, damit man trotz richtig gefundenem Eintrag weiter suchen kann ?
Gesucht wird nach Text und Zahlen.
Mit Dank im voraus.
Liebe Grüsse
Charlie
Anzeige