Zelle über VBA füllen

Sub kommt jedes Mal die Fehlermeldung "Anwendungs- oder objektdefinierter Fehler und die Zeile
.Cells(intZeile, 5).FormulaLocal = strBedingung & strRunde & "$I$" & Anfang + intZeile
wird markiert. Bisher stand in der Zeile:
.Cells(intZeile, 5).FormulaLocal = "=" & strRunde & "$I$" & Anfang + intZeile
Damit hat es immer funktioniert. Ich hoffe, dass mir jemand sagen kann, was ich falsch mache.
Hier ist die sub:

Sub EndergebnisEineGruppe(Anfang As Integer)
' Blattschutz entfernen, Mannschaften in Spalte E eintragen und Blattschutz wiederherstellen
'    ArbeitsblattFreigeben ("Endergebnis")
Dim intZeile As Integer     ' Index für Zeile
Dim strRunde As String      ' Name der Runde
Dim strBedingung As String   ' Bedingung
strRunde = "'Runde " & intGruppen & " x " & intTeams & "'!"
' Bspl.:   'Runde 1 x 3'!
strBedingung = "=IF('Ergebnisse 1 x " & intGruppen & "'!$F$5=FALSe;"""";"
' Bspl.:   =WENN('Ergebnisse 1 x 3'!$F$5=FALSCH;"";
With Worksheets("Endergebnis")
For intZeile = 1 To intTeams
.Cells(intZeile, 5).FormulaLocal = strBedingung & strRunde & "$I$" & Anfang + intZeile
Next intZeile
End With
'    ArbeitsblattKomplettSperren ("Endergebnis")
End Sub


m.f.g.

volleybaerchen