Option
Explicit
Sub
Test()
Dim
rngData
As
Excel.Range
Dim
rngMatch
As
Excel.Range
Dim
vntWhat
As
Variant
Dim
vntReplace
As
Variant
With
Worksheets(
"Tabelle1"
)
Set
rngData = .Range(
"A2"
, .Cells(.Rows.Count,
"A"
).
End
(xlUp))
End
With
vntWhat = 18937
vntReplace =
"ABC1"
Set
rngMatch = rngData.Find(vntWhat, , xlValues, xlWhole, xlByColumns, xlNext,
False
)
If
rngMatch
Is
Nothing
Then
Call
MsgBox(
"Nichts gefunden."
)
Exit
Sub
End
If
Do
rngMatch.Value = vntReplace
Set
rngMatch = rngData.FindNext(rngMatch)
Loop
Until
rngMatch
Is
Nothing
Call
MsgBox(
"Done."
, vbInformation)
End
Sub