Sub FürJedesArbeitsblatt()
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
For Each wks In ThisWorkbook.Worksheets
With wks
For Each rng In .Range("A1").CurrentRegion.Resize(, .Range("A1").CurrentRegion.Columns.Count - 1).Offset(, 1).Rows
Call WerteErsetzen(rng)
Next rng
End With
Next wks
End Sub
Sub WerteErsetzen(ByRef rng As Excel.Range)
Dim vArr As Variant
Dim i As Long
i = 0
vArr = rng
For i = LBound(vArr, 2) To UBound(vArr, 2) Step 1
vArr(1, i) = IIf((vArr(1, i) > 20), 1, 0)
Next i
rng = vArr
End Sub