Gruppe
Allgemein
Problem
Wenn die jeweilige Zelle in Spalte D nicht leer ist, sollen die Zeilenwerte in Tabelle2 übernommen werden.
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