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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 50766
Url: https://administrator.de/forum/excel-bereich-per-vba-loeschen-50766.html
Ausgedruckt am: 16.02.2025 um 21:02 Uhr
4 Kommentare
Neuester Kommentar
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
