Dim
sSuchwert
As
String
Dim
rngSuchbereich
As
Excel.Range
Dim
vRet
As
Variant
Set
rngSuchbereich = Range(
"D5:D10"
)
sSuchwert =
"String-Index"
vRet = Application.Match(sSuchwert, rngSuchbereich, 0)
If
IsError(vRet) =
True
Then
Exit
Sub
Else
MsgBox sSuchwert &
" im Bereich "
& rngSuchbereich.Address &
" in Zelle "
& rngSuchbereich(1, vRet).Address &
" gefunden."
End
If