Aloha allerseits.
Mit dem folgenden Code wird eine Art "Schnellsuchassisten" über Workesheet_change gestartet:
If Target.Address = "$C$10" Then
Suchtext = CStr(Worksheets("Ausführung").Range("C10").Text)
If Suchtext = "" Then Exit Sub
Cells.Find(What:=Suchtext, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Schnellsuchassistent.Show
Exit Sub
End If
Das Problem hierbei ist, dass auch Zellen durchsucht werden, die ausgeblendet sind. Kann man dies verhindern und wenn ja wie?
Mit freundlichem Gruße