VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Victoria	Datum: 01.10.2018 18:32:22	Views: 947	Rating:	Antwort:
Thema: Daten
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen