Hallo Excel-Liebhaber,
in dem nachstehendem Makro habe ich einen Fehler drin, den ich leider nicht gelöst bekomme.
In der Hoffnung das mir jemand weiterhelfen kann.
Es geht darum das eine Formel, die in Zelle C13 steht in die Zeilen ab C20 reinkopiert wird, in denen ein "X" in Spalte A steht.
Das selektieren der korrekten Zeilen funktioniert, aber anstelle der Formel erhalte ich je nachdem was ich an dem Makro ändere entweder den Wert 0 oder =0.
Die Formel ist eine Summenproduktformel. (Nicht das das nachher das ausschlaggebende wäre).

Vielen Dank schon mal an alle vorab die sich die Zeit zum reinschauen genommen haben.
Gruß Helmut

Das Makor wird über eine Befehlsbutton gestartet.


Private Sub CommandButton1_Click()

Dim a As String
Dim i As Long
Dim lz As Long

'letzte Zeile ermitteln
lz = Sheets(1).Cells(Rows.Count, "a").End(xlUp).Row

'Formel auf Variable zuweisen
a = "=" & Cells(13, 3).Value


'Durchlauf
For i = 20 To lz
If Cells(i, 1).Value = "X" Then
Range("c" & i & ":da" & i).Value = a
End If
Next i

'Inhalte einfügen
Range("c20:fz" & i).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("A1").Select
Application.CutCopyMode = False

MsgBox "fertig"
End Sub