Hallo
Ist es möglich über über VBA zu sagen
"Wenn in Zellen K3:M375 #Div/0! dann 0"?
Insulinberechnung

	A	B	C	D	E	F	G	H	I	J	K	L	M
9	So.05.04.2009	216	0	6	177	6	12	113	3	9	168,67	4,50	9,00
10	Mo.06.04.2009	138	0	2							138,00	#DIV/0!	2,00

Formeln der Tabelle

Zelle Formel G9 =WENN(ISTLEER(F9); "";WENN(F9<=4;ABRUNDEN(F9*Umrechnungstabelle!$E$8;0); WENN(F9>4;ABRUNDEN((F9*Umrechnungstabelle!$E$8)-(F9-4)*Umrechnungstabelle!$E$8/2;0); ))) J9 =WENN(ISTLEER(I9); "";WENN(I9<=4;ABRUNDEN(I9*Umrechnungstabelle!$F$8;0); WENN(I9>4;ABRUNDEN((I9*Umrechnungstabelle!$F$8)-(I9-4)*Umrechnungstabelle!$F$8/2;0); ))) K9 =WENN(ISTZAHL(A9); SUMME(B9;E9;H9)/(ZÄHLENWENN(B9;">1")+ZÄHLENWENN(E9;">1")+ZÄHLENWENN(H9;">1")); "") L9 =WENN(ISTZAHL(A9); SUMME(C9;F9;I9)/(ZÄHLENWENN(C9;">1")+ZÄHLENWENN(F9;">1")+ZÄHLENWENN(I9;">1")); "") M9 =WENN(ISTZAHL(A9); SUMME(D9;G9;J9)/(ZÄHLENWENN(D9;">1")+ZÄHLENWENN(G9;">1")+ZÄHLENWENN(J9;">1")); "") G10 =WENN(ISTLEER(F10); "";WENN(F10<=4;ABRUNDEN(F10*Umrechnungstabelle!$E$8;0); WENN(F10>4;ABRUNDEN((F10*Umrechnungstabelle!$E$8)-(F10-4)*Umrechnungstabelle!$E$8/2;0); ))) J10 =WENN(ISTLEER(I10); "";WENN(I10<=4;ABRUNDEN(I10*Umrechnungstabelle!$F$8;0); WENN(I10>4;ABRUNDEN((I10*Umrechnungstabelle!$F$8)-(I10-4)*Umrechnungstabelle!$F$8/2;0); ))) K10 =WENN(ISTZAHL(A10); SUMME(B10;E10;H10)/(ZÄHLENWENN(B10;">1")+ZÄHLENWENN(E10;">1")+ZÄHLENWENN(H10;">1")); "") L10 =WENN(ISTZAHL(A10); SUMME(C10;F10;I10)/(ZÄHLENWENN(C10;">1")+ZÄHLENWENN(F10;">1")+ZÄHLENWENN(I10;">1")); "") M10 =WENN(ISTZAHL(A10); SUMME(D10;G10;J10)/(ZÄHLENWENN(D10;">1")+ZÄHLENWENN(G10;">1")+ZÄHLENWENN(J10;">1")); "")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Danke
Ingo