Hallo zusammen,
folgender Fall: Ich habe in Makro, das mir mithilfe einer Schleife in einem definierten Bereich alle Leerzeilen markiert und mit einer Summenformen füllt, die die jeweils 4 darüber liegenden Zeilen einbindet.
Diese Summenformel beginnt aber schon in Spalte A, soll aber erst in Spalte D beginnen.
Meine Frage nun, gibt es eine andere Möglichkeit, in diesem def. Bereich die Leerzeilen zu markieren, sodass die Spalten A-D unberührt bleiben?
Folgender Code:
Sub SUMME()
'Markiere gefüllten Bereich
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
letztespalte = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(1, 1), Cells(letztezeile, letztespalte)).Select
Dim loZeile As Long
For loZeile = Selection.Cells(1).Row + Selection.Rows.Count To Selection.Cells(1).Row Step -1
If Application.WorksheetFunction.CountA(Rows(loZeile)) = 0 Then Rows(loZeile).Select 'Wenn Zeile leer ist, dann reinschreiben
Selection.FormulaR1C1 = "=SUM(R[-1]C:R[-4]C)"
Next loZeile
End Sub
Vielen Dank im Voraus,
Peter
|