Brauch mal wieder eure Unterstützung.
Ich habe den Blattschutz in einer Tabelle1, mit der Ausnahme "Autofilter" , eingestellt. Damit ich in der Tabelle1 die Suchfunktion benutzen kann, habe ich mir diesen Code zusammengesucht.
Sub suchen()
Dim rngFind As Range
Dim strFirst As String, strFind As String
strFind = InputBox("Please enter search item!", "search")
If strFind = "" Then Exit Sub
With Sheets("Tabelle1")
Set rngFind = .Range("a5:ao2000").Find(What:=strFind, after:=.Range("ao2000"), _
LookIn:=xlValues, LookAt:=xlPart)
If Not rngFind Is Nothing Then
strFirst = rngFind.Address
Do
Application.Goto rngFind, False
If MsgBox("continue searching?", vbYesNo) = vbNo Then Exit Sub
Set rngFind = .Range("a5:ao2000").FindNext(after:=rngFind)
Loop While Not rngFind Is Nothing And strFirst rngFind.Address
End If
End With
End Sub
Am Anfang hat auch alles prima funktioniert, aber wenn ich die Datei jetzt öffne und den Code ausführen lasse, dann kommt die Fehlermeldung 400.Kann mir jemand sagen, was das Problem sein könnte?
Desweitern würde ich gerne wissen, wie ich den .Rang dynamisch bekomme? D.h. Excel soll den befüllten Tabellenbereich selber finden.
Gruß
Basti