Hallo,
ich möchte aus einem Excelblatt Daten >0 rausfiltern und in ein neues Excelblatt kopieren.
Die Daten, welche ich filtern möchte befinden sich in Column B von Zeil 2 bis irgeneine Zahl die sich jedes Monat ändert.
Hier mein Code dafür:
Sub QuantitativeRisiken()
Dim x As Long
Dim y As Long
y = 2
lastrow = ActiveSheet.Cells(Row.Count, 1).End(xlUp).Row
For x = 2 To lastrow
If Cells(x, 2) > 0 Then
Cells(x).Copy Destination:=Worksheets("QuantitativeRisiken").Rows(y)
y = y + 1
Else
End If
Next x
End Sub
Leider bekomme ich immer die Fehlermeldung "424 Objekt erforderlich". Es scheint hieran zu liegen "lastrow = ActiveSheet.Cells(Row.Count, 1).End(xlUp).Row".
Was habe ich übersehen?
Vielen Dank im Voraus!
Beste Grüße
Victoria |