Makro Suchfunktion trotz Blattschutz
21.11.2012 09:52:09
Basti
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
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