Habe mich an Arrays herangewagt. Was mit jedoch nicht gelingt, ist Felder in einem Array zu addieren. Ich habe z.B.
If CDbl(Sheets("Export").Cells(j, 2)) > 0 Then MyArray(KontoS, 7) = MyArray(KontoS, 7) + Sheets("Export").Cells(j, 2)
Angezeigt wird am Schluß "25,9926,8948,63": Ich probiere schon immer und habe auch im Archiv nachgesehen. Aber die passende Lösung noch nicht gefunden. Kann einer von Euch helfen? Danke vielmals.
Gruß
Michael H