Excel Bereich per vba löschen
Hallo,
ich will einen Bereich in einer excel Tabelle löschen hab dafür zwar die lösung
(als Anmerkung: inta ist eine integer variable mit dem wert "1")
Worksheets("Bestellen").Cells(inta + 3, 1).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 2).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 3).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 4).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 5).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 6).Value = ""
gefunden würde das aber gerne in eine Zeile packen und folgendes versucht:
Worksheets("Bestellen").Range(Cells(inta + 3, 1), Cells(inta + 3, 6)).Value = ""
Aus irgendeinem Grund klappt das nicht. Fehlermeldung: Laufzeitfehler 1004 (Konnte dazu aber auch nichts finden)
Danke im Vorraus für eure Hilfe
ich will einen Bereich in einer excel Tabelle löschen hab dafür zwar die lösung
(als Anmerkung: inta ist eine integer variable mit dem wert "1")
Worksheets("Bestellen").Cells(inta + 3, 1).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 2).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 3).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 4).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 5).Value = ""
Worksheets("Bestellen").Cells(inta + 3, 6).Value = ""
gefunden würde das aber gerne in eine Zeile packen und folgendes versucht:
Worksheets("Bestellen").Range(Cells(inta + 3, 1), Cells(inta + 3, 6)).Value = ""
Aus irgendeinem Grund klappt das nicht. Fehlermeldung: Laufzeitfehler 1004 (Konnte dazu aber auch nichts finden)
Danke im Vorraus für eure Hilfe
Please also mark the comments that contributed to the solution of the article
Content-Key: 50766
Url: https://administrator.de/contentid/50766
Printed on: April 27, 2024 at 00:04 o'clock
4 Comments
Latest comment
Hallo !
Ist zwar nicht in einer Zeile, aber fast:
With Worksheets("Bestellen")
.Range(.Cells(inta + 3, 1), .Cells(inta + 3, 6)).Value = ""
End With
Sollte funktionieren....
Übrigens: Mal einen kleinen Blick in die Online-Hilfe von Excel unter "Range (Objekt)", dann hättest Du die Lösung auch sofort gefunden...
"Cells" ist eine Eigenschaft und muß sich auf ein Objekt beziehen, das ist in dem Fall "Worksheet". Daher gehts nicht ohne "."
Viele Grüße
Christian
Ist zwar nicht in einer Zeile, aber fast:
With Worksheets("Bestellen")
.Range(.Cells(inta + 3, 1), .Cells(inta + 3, 6)).Value = ""
End With
Sollte funktionieren....
Übrigens: Mal einen kleinen Blick in die Online-Hilfe von Excel unter "Range (Objekt)", dann hättest Du die Lösung auch sofort gefunden...
"Cells" ist eine Eigenschaft und muß sich auf ein Objekt beziehen, das ist in dem Fall "Worksheet". Daher gehts nicht ohne "."
Viele Grüße
Christian