Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle Zeilen ohne Wert in vorgegebener Spalte kopieren

Gruppe

Kopieren

Problem

Alle Zeilen, die in Spalte G keinen Wert enthalten, sollen in die zweite Tabelle kopiert werden.

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

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