Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeilen in Abhängigkeit des Wertes in Spalte A kopieren

Gruppe

Kopieren

Problem

Wie kann ich veranlassen, dass nur die Zeilen in eine neue Arbeitsmappe kopiert werden, der Wert in Spalte A einer Bedingung entspricht?

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

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