Hallo „Ich möchte lernen“
für so einer Suche solltest du eine benutzerdefinierte Funktion erstellen, an die du die Paramter für die Suche übergibst.
Für die Suche selbst verwende die Suchfunktion von Excel. Erst bei komplizierten Suchmustern muss man auf andere Funktionen zurückgreifen.
Gruß
Franz
Code-Beispiel
Sub Test1()
Dim bolVorhanden As Boolean
bolVorhanden = fncFindContent(varWhat:="A15", \_
rngBereich:=Worksheets("Tabelle2").UsedRange, \_
bolMatchCase:=True)
If bolVorhanden = True Then
MsgBox """A15"" gefunden!"
Else
MsgBox """A15"" nicht gefunden!"
End If
End Sub
Public Function fncFindContent(varWhat As Variant, rngBereich As Range, \_
Optional bolMatchCase As Boolean = False, \_
Optional lngLookat As Long = xlWhole, \_
Optional lngLookin As Long = xlValues) As Boolean
Dim rngZelle As Range
On Error GoTo Fehler
Set rngZelle = rngBereich.Find(What:=varWhat, LookIn:=lngLookin, \_
Lookat:=lngLookat, MatchCase:=bolMatchCase)
If rngZelle Is Nothing Then
fncFindContent = False
Else
fncFindContent = True
End If
Exit Function
Fehler:
fncFindContent = False
MsgBox "Fehler-Br.: " & Err.Number & vbLf & Err.Description
End Function
