irgendwie habe ein einen Denkfehler und komme nicht weiter.
Ich möchte das die Schleife durchlaufen wird, aber Zellen N8 bis N53 einzeln befüllt werden, durch die schleife. Nicht alle auf einmal. :)
Sub Befüllen()
For Each Zelle In Tabelle2.Range("C14:C53")
If Zelle.Value > 0 Then
On Error Resume Next
Formel = "=XVERWEIS(C8;" & Zelle & "!$E$8;" & Zelle & "!$E$157)"
Worksheets("Detail int. Prfg").Range("N8:N53").FormulaLocal = Formel
On Error GoTo 0
End If
Next
End Sub