Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Formel bis zur letzten Zeile der Nebenspalte kopieren

Gruppe

Kopieren

Problem

Wie kann ich eine Formel in Spalte B bis zur letzten Zelle mit Inhalt in Spalte A kopieren? In Spalte A sind die Zellen nicht durchgehend belegt.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub BisZurLetztenZeile()
  Dim iRow As Integer
  iRow = Cells(Rows.Count, 1).End(xlUp).Row
  Range("B2").Formula = "=sum($A$1:$A2)"
  Range("B2:B" & iRow).FillDown
End Sub