VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Formel bis zur letzten Zeile der Nebenspalte kopieren

Gruppe

Allgemein

Bereich

Kopieren

Thema

Formel bis zur letzten Zeile der Nebenspalte 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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren