Office: Laufzeitfehler 1004 bei Versuch Zeilen zu löschen

anliko · 10. Juli 2016

Hallo zusammen,

ich versuche innerhalb einer Tabelle Zeilen zu löschen, also diese wieder zurückzusetzen. Hier mein Code
Code:

'Daten auf Blatt "AWKennwert" löschen
Dim NexttoLastRow As Long
NexttoLastRow = Sheets("AWKennwert").Range("A65536").End(xlUp).Row - 1
Worksheets("AWKennwert").Range(Cells(12, 1), Cells(NexttoLastRow, 17)).Rows.Delete Shift:=xlUp
Worksheets("AWKennwert").Range("B11:Q11").ClearContents
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieser Code funktioniert, wenn ich ihn in einer neu erstellten Tabelle laufen lasse (hab ich eben versucht, wollte eine Beispieldatei hochladen)
Aber in meiner Tabelle, in der noch einige andere Makros vorhanden sind nicht.
Es kommt folgende Fehlermeldung: Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler.

Woran könnte das liegen?
Danke schon mal,
Anna

:)

anliko · 12. Juli 2016

Achja und der Fehler kommt an folgender Stelle
Code:

Worksheets("AWKennwert").Range(Cells(12, 1), Cells(NexttoLastRow, 17)).Rows.Delete Shift:=xlUp
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 12. Juli 2016

Hi,

es fehlt der Bezug zum Tabellenblatt bei Cells - der Code müsste eigentlich so heißen:

Code:

Worksheets("AWKennwert").Range(Worksheets("AWKennwert").Cells(12, 1), Worksheets("AWKennwert").Cells(NexttoLastRow, 17)).Rows.Delete Shift:=xlUp
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder einfacher:

Code:

Dim NexttoLastRow As Long
With Worksheets("AWKennwert")
NexttoLastRow = .Range("A65536").End(xlUp).Row - 1
.Range(.Cells(12, 1), .Cells(NexttoLastRow, 17)).Rows.Delete Shift:=xlUp
.Range("B11:Q11").ClearContents
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

anliko · 12. Juli 2016

Hallo Karin,

Vielen lieben Dank, es klappt *Smilie

Grüße

Office: Laufzeitfehler 1004 bei Versuch Zeilen zu löschen

Laufzeitfehler 1004 bei Versuch Zeilen zu löschen

Laufzeitfehler 1004 bei Versuch Zeilen zu löschen

Laufzeitfehler 1004 bei Versuch Zeilen zu löschen

Laufzeitfehler 1004 bei Versuch Zeilen zu löschen - Similar Threads - Laufzeitfehler 1004 Versuch

Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

Laufzeitfehler 5 und 1004

FormulaArray / Laufzeitfehler 1004

Laufzeitfehler 1004

Probleme bei Speichern laufzeitfehler 1004

Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler

Laufzeitfehler 1004 mit Paste-Methode