die Informationen zu "Laufend" fehlen scheinbar. Wie du die Ergebnisse in die Zellen bekommst,
sollte eine leichte Übung für dich sein. Dein Code läuft ansonsten?
dim erl as long, erlpt as long, abgel as long, abgelpt as long, akq as long, akqpt as long
For i = p To Cells(Rows.Count, st).End(xlUp).Row
If Cells(i, "I") >= Start And Cells(i, "I") <= Ende then
if cells(i,st) = "Abgelehnt" then
abgel = abgel +1
abgelpt = abgelpt + Cells(i, w)
elseif cells(i,st) = "Akquise" then 'angebot
akq = akq +1
akqpt = akqpt + Cells(i, w)
End if
If Cells(i, s) >= Start And Cells(i, e) <= Ende then
v = v + Cells(i, w).Value
a = a + 1
if(cells(i,st) = "Abgeschlossen" then
erl = erl +1
erlpt = erlpt + cells(i, w)
end if
End If
Next
|