Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Übernahme in 2. Tabelle, wenn Zelle in Spalte D nicht leer ist

Gruppe

Vergleich

Problem

Wenn die jeweilige Zelle in Spalte D nicht leer ist, sollen die Zeilenwerte in Tabelle2 übernommen werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub Kopieren()
   Dim iRow As Integer, iRowT
   For iRow = 1 To 20
      If Not IsEmpty(Cells(iRow, 4)) Then
         iRowT = iRowT + 1
         Worksheets("Tabelle2").Rows(iRowT).Value = _
            Rows(iRow).Value
      End If
   Next iRow
End Sub