VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Den jeweils darüberliegenden Wert in Leerzellen kopieren

Gruppe

Allgemein

Bereich

Kopieren

Thema

Den jeweils darüberliegenden Wert in Leerzellen 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

    


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