Thema: Zeilen in Abhängigkeit des Wertes in Spalte A kopieren

StandardModule: basMain

Sub WerteFiltern()
   Dim wks As Worksheet
   Dim iRow As Integer, iRowL As Integer, iRowT As Integer
   Application.ScreenUpdating = False
   Set wks = ActiveSheet
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   Workbooks.Add
   For iRow = 1 To iRowL
      With wks
         If IsNumeric(Left(.Cells(iRow, 1), 6)) Then
            If CDbl(Left(.Cells(iRow, 1), 6)) > 990000 And _
               CDbl(Left(.Cells(iRow, 1), 6)) < 1000000 Then
               iRowT = iRowT + 1
               .Range(.Cells(iRow, 2), .Cells(iRow, 7)).Copy _
                  Cells(iRowT, 1)
            End If
         End If
      End With
   Next iRow
   Columns.AutoFit
End Sub

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