Spalten nach einem wert durchsuchen

Sub einwahl()
Dim rng As Range
Dim sBegriff As String, sAddress As String
Dim zaehler As Variant
Dim operator As Integer
operator = 2
sBegriff = 1
If sBegriff = "" Then Exit Sub
Set rng = Range("C1:C480").Find( _
what:=sBegriff, _
lookat:=xlWhole, _
LookIn:=xlValues, _
MatchCase:=False)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAddress = rng.Address
rng.Select
rng.Offset(1).Select
Do
Range("C1:C480").FindNext(after:=ActiveCell).Activate
If ActiveCell.Address = sAddress Then Exit Sub
Range("I" & operator).Value = ActiveCell.Address(False, False)
operator = operator + 1
Loop
End Sub