Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Den jeweils darüberliegenden Wert in Leerzellen kopieren

Gruppe

Kopieren

Problem

Die Leerzellen in Spalte A sollen mit dem jeweils darüberstehenden Wert gefüllt werden.

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

StandardModule: Modul1

Sub CopyCells()
   Dim iRow As Integer
   iRow = 2
   Do Until Cells(iRow, 1).Value = "Stop"
      If IsEmpty(Cells(iRow, 1)) Then
         Cells(iRow, 1).Value = Cells(iRow - 1, 1).Value
      End If
      iRow = iRow + 1
   Loop
End Sub