zeilen zählen - für summenbildung
12.03.2003 20:36:06
Günther
ich habe unterschiedliche anzahlen von zeilen, die jeweils eine summe bilden sollen ... damit ich diese anzahl aber feststellen kann bräuchte ich einen vba code, der mir diese feststellt.
abhängig ist diese anzahl von der artikelnummer (spalte o)... liste ist bereits sortiert und beim wechsel der art.-Nr. ist eine leerzelle eingefügt...
das was ich gemacht habe funktioniert leider nicht
Function zählen()
Dim i As Long, Anz As Long, Ende As Long
Anz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Ende = [O65536].End(xlUp).Row
For i = 4 To Ende
If Cells(i, 15) = Cells(i - 1, 15) Then
Cells(Rows.Count, 1).End(xlUp).Row
End If
Next
End Function