Hallo zusammen,

bei Klick auf den Button erhalte ich bei der fett markierten Zeile den Laufzeitfehler 13.
Gebe ich aber die Zellen getrennt durch Komma ein funktioniert es. Wo liegt mein Fehler, bzw. wie kann ich es realisieren das in alle Zellen die keinen Wert enthalten, ein "-" eingetragen wird.

Private Sub cmdJanuar_Click()

If Range("F12:J41").Value = "" Then
Range("F12:J41").Value = "-"
End If
Sheets("Gesamtlieferungen_2024").Range("B29").Copy
Sheets("Quartal").Range("F12").PasteSpecial Paste:=xlPasteValues
Sheets("Gesamtlieferungen_2024").Range("C29").Copy
Sheets("Quartal").Range("G12").PasteSpecial Paste:=xlPasteValues

Range("J12") = Application.WorksheetFunction.Sum(Range("F12:G12"))

Vorab vielen Dank für eure Hilfe

Josef