Anwendungsfehler 1004
20.04.2018 11:00:05
PS
Ich hätte eine kleine Frage.
Ich wollte mir ein einfaches Makro schreiben, welches durch die verschiedenen Sheets meines Workbooks läuft und jeweils in einer bestimmten Spalte die Zeilen löscht, die einen 0 Betrag haben:
Sub Bestand_loeschen()
Dim SheetList As Variant
Dim x
Dim y
' Namen der Seiten
SheetList = Array("Europäischer Dividendenfokus", "US Cash Return", "Emerging Markets Basket", " _
_
S&P 500 Proxy", "Japan Small&MidCap", "Japan Aktienbasket", "EUROPA M&A Basket", "E-Sports& _
Gaming Basket", "International Sales Basket", "US Infrastructure", "US M&A Basket", "ASEAN Dem Dy")
' Durch die Listen suchen
For y = LBound(SheetList) To UBound(SheetList)
For x = 5 To 1000
' In den jeweiligen Seiten nach den Feldern suchen die gleich 0 sind
If ThisWorkbook.Worksheets(SheetList(y)).Range(x, 11).Value = 0 Then
' Die Zeile löschen
ThisWorkbook.Worksheets(SheetList(y)).Rows(x).Delete
End If
Next x
Next y
End Sub
Allerdings zeigt er mir beim Ausführen den Lauzeitfehler '1004': Anwendungs-oder objektdefinierter Fehler im oben fett markierten Code...
Bin mir gerade nicht sicher wo der Fehler liegt und hoffe ihr könnt mir weiterhelfen...
Viele Grüße
PS