Hallo, ich war schon lange nicht mehr hier, brauche aber mal wieder eure Hilfe.
Folgendes Problem, in einem Schleifendurchlauf sollen auf einem sheet mehrere Formeln in verschiedene Zellen geschrieben werden
Formel = "='Tfz-Bereit'!" & Buchstabe & "46"
ActiveSheet.Range("D11").Value = Formel
ActiveSheet.Range("D11").Select
Set SourceRange = ActiveSheet.Range("D11")
Set fillRange = ActiveSheet.Range("D11:D25")
SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
Formel = "='Tfz-Bereit'!" & Buchstabe & "62"
ActiveSheet.Range("D26").Value = Formel
ActiveSheet.Range("D26").Select
Set SourceRange = ActiveSheet.Range("D26")
Set fillRange = ActiveSheet.Range("D26:D47")
SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
Formel = "=WENN(D11=0;0;('Tfz-Bereit'!$" & Buchstabe & "$7/D11)-SUMME(G12:$G$19))"
ActiveSheet.Range("G11").Value = Formel
ActiveSheet.Range("G11").Select
Set SourceRange = ActiveSheet.Range("G11")
Set fillRange = ActiveSheet.Range("G11:G19")
SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
Die beiden ersten Blöcke sind bis auf den Inhalt des Text-Strings in der Variable "Formel" identisch und funktionieren einwandfrei.
Beim dritten Block gibt es immer einen Laufzeitfehler, obwohl ja die Vorgehensweise immer die selbe ist.
Vielleicht fällt Euch ja auf, was an dem String falsch ist, sodass er nicht in die Zelle geschrieben wird.
Danke im vorraus
Ralf