Hallo ihr Excelspezialisten,
ich habe folgenden Code:
<pre>Sub Formel_Einnahmen_in_erste_unbeschriebeneZelle_SpalteJ_einfügen()
Dim letzteZeileJ As Long
Dim letzteZeileG As Long
Dim Zeile As String
letzteZeileJ = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row
letzteZeileG = Tabelle1.Cells(Rows.Count, 7).End(xlUp).Row
Zeile = letzteZeileG
Cells(letzteZeileJ + 1, 10).FormulaLocal = _
"=SUMMEWENNS(Gesamtbuchungen!W3:W65656;Gesamtbuchungen!R3:R65656;KontenBericht!G" & Zeile & ";Gesamtbuchungen!S3:S65656;" >= "&Hilfstabelle_Bericht!O3;Gesamtbuchungen!S3:S65656;" <= "&Hilfstabelle_Bericht!O5)"
End Sub</pre>
Laufzeitfehler 13 Typenunverträglichkeit
Könnt ihr mir bitte mitteilen, was hier nicht richtig ist.
Besten Dank
Gruss
Peter