Hallo Rainer,
....das halte ich für Unsinn, warum brauchst Du dazu ein Makro?
Aber wenn es dann sein soll, bitte
Option Explicit
Sub zaehlen()
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((R[-313]C[4]:R[-7]C[4]=RC[4])*
(R[-313]C[11]:R[-7]C[11]=RC[3]))"
End Sub
vielen Dank für deine Hilfe das klappt schon fast wie gewünscht.
Nur noch eine Frage
wie kann ich einen absoluten Bezug für eine Spalte einbauen?
(R[-313]C[4] soll immer gleich sein z.B. $F$3:$F$ 311
Gruß Erwin