4
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 50766
Url: https://administrator.de/contentid/50766
Printed on: April 19, 2024 at 22:04 o'clock
4 Comments
Latest comment
Hallo EXXON,
Es gibt da fertige Methoden zum Löschen von Inhalten.
Eine Variante ist:
ActiveSheet.Range("A" & Cstr(inta+3) & ":F" & Cstr(inta+3) & ",K" & Cstr(inta+3) & ":L" & Cstr(inta+3)).ClearContents
So werden zwei Bereiche auf ein Mal entleert.
Gruß
us
Es gibt da fertige Methoden zum Löschen von Inhalten.
Eine Variante ist:
ActiveSheet.Range("A" & Cstr(inta+3) & ":F" & Cstr(inta+3) & ",K" & Cstr(inta+3) & ":L" & Cstr(inta+3)).ClearContents
So werden zwei Bereiche auf ein Mal entleert.
Gruß
us
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
Servus!
Ich würde den Clear-Befehl benutzen! Klappt viel besser!
Sheets("Tabelle").Range("A1:A20").Clear
Ich würde den Clear-Befehl benutzen! Klappt viel besser!
Sheets("Tabelle").Range("A1:A20").Clear
Wenn der Clear-Methode aufgerufen wird, wird nicht nur den Inhalt entleert, sondern auch die Formatierung entfernt. Das ist nicht immer gewünscht, daher um NUR den Inhalt zu entfernen sollte man die Methode ClearContents benutzen.
Gruß
us
Gruß
us
