Liste anhand Kriterium in Spalte in neuem Blatt er
07.03.2018 19:48:55
Antoinette
ich suche eine Möglichkeit wie ich aus einer Liste die Einträge in ein neues Blatt schreiben kann welche in einer Spalte einen bestimmten range einer zahl haben:
Also alle Einträge mit einer Zahl in Spalte A ins nächste Blatt alle Zeilen mit einem Wert von >10 in ein 3. Blatt die werte grösse 100
und in ein 4. Blatt die Zeilen welche in Spalte B eine Zahl haben.
Ich verwende zur Zeit dieses Makro:
Sub CopyValues2()
Dim lRow As Long, lRowL As Long, lRowT As Long
lRowL = Cells(Rows.Count, 3).End(xlUp).Row
lRowT = 1
For lRow = 2 To lRowL
If Not IsEmpty(Cells(lRow, 3)) Then
lRowT = lRowT + 1
Worksheets("Auftrag").Rows(lRowT).Value = Rows(lRow).Value
End If
Next lRow
End Sub
Damit schaffe ich nur die Zeilen zu kopieren welche in Spalte B einen Wert haben.
Das Problem ist, dass in Spalte B eine Formel ist, welche aus Splate C die Zahl extrahiert.
Dadurch ist diese Splate nicht "leer".
Wie kann ich also als Bedingung das mit den Zahlenwerten realisieren?
Nur Is Empty reicht mir nicht.
Vielen Dank für Unterstützung