ich habe ein Problem und zwar Excel soll über Makros in der Spalte K leere Zeile finden und automatisch von K2 bis zu der leeren Zeile die Summe bilden.
Ich hoffe ihr könnt mir weiterhelfen.
Vielen Dank im Voraus.
Gruß
Eyob
Sub MySum()
Dim myArray(), Zelle As Range
ReDim myArray(1 To Columns(11).SpecialCells(xlCellTypeLastCell).Row)
For Each Zelle In Range(Cells(2, 11), Cells(Rows.Count, 11)).SpecialCells(xlCellTypeConstants, _
1)
myArray(Zelle.Row) = Zelle
If Zelle.Offset(1, 0) = "" Then
Zelle.Offset(1, 0) = Application.Sum(myArray)
Zelle.Offset(1, 0).Interior.Color = vbGreen
ReDim myArray(1 To Columns(11).SpecialCells(xlCellTypeLastCell).Row)
End If
Next
End Sub
die Zellen mit den Zwischensummen werden Grün hinterlegtSub MySum()
Dim lnglast As Long
lnglast = Cells(Rows.Count, 11).End(xlUp).Row
Cells(lnglast + 1, 11) = Application.Sum(Range(Cells(2, 11), Cells(lnglast, 11)))
End Sub