Moin,

ich weiss nicht wofür proz gedacht war, aber hier ein paar Möglichkeiten:

Sub ForEach()
    Dim c As Excel.Range
    For Each c In ActiveSheet.Range("B1:B50")
        If c.Value = "Test" Then
            c.Value = 0
        End If
    Next
End Sub

Sub ForI()
    Dim i As Long
     For i = 1 To 50
        If Range("B" & i).Value = "Test" Then
            Range("B" & i).Value = 0
        End If
    Next
End Sub

Sub ReplaceTest()
    Call Columns("B").Replace("Test", 0)
End Sub