Hallo,
ich habe mit dem code folgendes Problem.
In einer Tabelle steht in Zeile 1 die Überschrift.
In der letzten beschriebenen Zeile steht die Summe.
Addiere ein bestimmtes Feld in allen Zeilen außer der Ersten und der letzten.
Gib aus, wieviel Datensätze und die EuroSumme der addierten Datensätze.
Problem ist: daß yDiviAnspr in der Schleife nicht erst bei Zeile 2 anfängt zu zählen.
Wie muß ich das ändern?
Viele Grüße aus HH nach der Sintflut.
ray
Ergebnis muß sein:
ZeileMax = 640
yDiviAnspr = 639
Worksheets("diviAus1").Select
Dim ZeileMax As Variant
ZeileMax = Range("a1").End(xlDown).Row '+ 1 ohne +1 = die letzte beschriebene Zeile ermitteln
ZeileMax = ZeileMax - 1 'in der lezten Zeile steht die Summe, daher -1
For a = 1 To ZeileMax
yDiviAnspr = yDiviAnspr + 1 'wie viele Audrucke
yDiviAuszh = yDiviAuszh + Worksheets("diviAus1").Cells(X, 9).Value 'summe
X = X + 1
Next a
MsgBox "" & ZeileMax & vbLf & yDiviAnspr & vbLf & yDiviAuszh & vbLf & X
Exit Sub