Thema: Alle Zeilen ohne Wert in vorgegebener Spalte kopieren

StandardModule: basMain

Sub CopyEmptys()
   Dim iRow As Integer, iRowL As Integer, iRowT As Integer
   iRowL = Cells(Rows.Count, 2).End(xlUp).Row
   For iRow = 2 To iRowL
      If IsEmpty(Cells(iRow, 7)) Then
         With Worksheets("02.01.02")
            iRowT = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
            .Range(.Cells(iRowT, 2), .Cells(iRowT, 7)).Value = _
               Range(Cells(iRow, 2), Cells(iRow, 7)).Value
         End With
      End If
   Next iRow
End Sub

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