Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Tabellenbereich löschen

Forumthread: VBA Tabellenbereich löschen

VBA Tabellenbereich löschen
29.05.2020 12:01:07
Peer
Hallo.
Ich weiß zwar, das meine Frage vielen ein Lächeln ins Gesicht zaubern wird, aber ich versuche trotzdem mal, sie zu stellen.
Was stimmt am Code nicht? 
Public Sub TN_Loeschen()
Dim wks As Worksheet
Dim Bereich As Range
Dim loZ As Long
Set wks = Sheets("Teilnehmer")
loZ = wks.Cells(2, 1).End(xlUp).Row
Set Bereich = wks.Range(Cells(2, 1), loZ)
wks.Bereich.ClearContents
End Sub

Ich möchte mit diesem Sub den Inhalt der Tabelle "Teilnehmer" im Bereich ab Zeile 2 (Überschrift möchte ich behalten) löschen.
LG
Peer
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Tabellenbereich löschen
29.05.2020 12:06:46
MCO
Hallo Peer!
die Zeile 
Set Bereich = wks.Range(Cells(2, 1), loZ)

verlangt nach 2 Zellen um den Bereich zu definieren. loZ ist aber nur eine Zahl.
Enweder definierst du loZ as range und schreibst 

loZ = wks.Cells(2, 1).End(xlUp)
oder 

Set Bereich = wks.Range(Cells(2, 1),Cells(loZ, 1))
Gruß, MCO
Anzeige
AW: VBA Tabellenbereich löschen
29.05.2020 12:11:45
hary
Moin 
Set Bereich = wks.Range(wks.Cells(2, 1), wks.Cells(loZ, 1))

Ohne wks vor Cells kann es in die Hose gehen.
oder nur so. 
wks.Range(wks.Cells(2, 1), wks.Cells(loZ, 1)).ClearContents

gruss hary
Anzeige
AW: VBA Tabellenbereich löschen
29.05.2020 12:35:11
Peer
Hallo hary.
Ich habe deine Antwort zu Herzen genommen, bekomme aber die Fehlermeldung "Anwendungs- oder Objektdefinierter Fehler" und bleibt bei Set Bereich hängen. 
Public Sub TN_Loeschen()
Dim wks As Worksheet
Dim Bereich As Range
Dim loZ As Integer
Set wks = Sheets("Teilnehmer")
loZ = wks.Cells(2, 1).End(xlUp)
Set Bereich = wks.Range(wks.Cells(2, 1), wks.Cells(loZ, 1))
Bereich.ClearContents
'wks.Range(wks.Cells(2, 1), wks.Cells(loZ, 1)).ClearContents
End Sub

LG
Peer
Anzeige
AW: VBA Tabellenbereich löschen
29.05.2020 12:44:39
hary
Moin
Da hast du dir einen Fehler eingebaut.
Verglei mal aus dem ersten Code 
loZ = wks.Cells(2, 1).End(xlUp).Row

mit dem jetzigem 
loZ = wks.Cells(2, 1).End(xlUp)

Was faellt dir auf? ;-))
Nimm anstatt Dim loZ As Integer --> Long
gruss hary
Anzeige
AW: VBA Tabellenbereich löschen
29.05.2020 13:06:24
Peer 

Public Sub TN_Loeschen()
Dim wks As Worksheet
Dim Bereich As Range
Dim loZ As Long
Set wks = Sheets("Teilnehmer")
loZ = wks.Cells(2, 1).End(xlUp).Row
Set Bereich = wks.Range(wks.Cells(2, 1), wks.Cells(loZ, 1))
Bereich.ClearContents
'wks.Range(wks.Cells(2, 1), wks.Cells(loZ, 1)).ClearContents
End Sub

bleibt trotzdem hängen.
LG
Peer
Anzeige
AW: VBA Tabellenbereich löschen
29.05.2020 13:24:21
hary
Moin Peer
Hab hier noch mal die zeile fuer LoZ geaendert.
So laeuft er(getestet) durch. 
Dim wks As Worksheet
Dim Bereich As Range
Dim loZ As Long
Set wks = Sheets("Teilnehmer")
loZ = wks.Cells(Rows.Count, 1).End(xlUp).Row '-- hier noch geaendert
Set Bereich = wks.Range(wks.Cells(2, 1), wks.Cells(loZ, 1))
Bereich.ClearContents

gruss hary
Anzeige
AW: VBA Tabellenbereich löschen
29.05.2020 13:33:10
Peer
Ok, hary.
Es war also nur der Zeilenindex in der loZ Variablen.
Danke.
Aber wie kann ich erreichen, dass nicht nur der Inhalt die Spalte A gelöscht wird, sondern alle Zeilen aller Spalten?
Dies war ursprünglich mein Ziel.
Gruß
Peer
AW: mit EntireRow
29.05.2020 13:37:22
hary
Moin 
Bereich.EntireRow.ClearContents

gruss hary
Anzeige
AW: mit EntireRow
29.05.2020 13:54:33
Peerli
Danke, hary.
Ich bin aktuell unterwegs und kann gerade nicht probieren. Es klingt aber nachvollziehbar.
LG
Peer
AW: mit EntireRow
29.05.2020 17:44:19
Peer
Hallo hary.
Bin jetzt daheim am PC und habe deinen Vorschlag gleich ausprobiert.
Er funktioniert.
Danke nochmals dafür.
Nun kommt bei mir gleich die nächste Frage auf, die ich aber in einem neuen Thread stellen möchte.
LG
Peer
Anzeige
AW: VBA Tabellenbereich löschen
29.05.2020 12:21:53
Peer
Hallo MCO.
Danke für die schnelle Antwort.
Wenn man nochmal darauf gestoßen wird, sieht man es als logisch an.
Trotzdem kommt bei 

wks.Bereich.ClearContents
eine Fehlermeldung "Objekt oder Methode nicht gefunden".
Ich habe der Deklaration von loZ Long in Integer zugewiesen. Aber kein Erfolg.
Woran kann dies liegen. Bereich ist doch deklariert und ihm einen Wert zugedacht.
Gruß
Peer
Anzeige
AW: VBA Tabellenbereich löschen
29.05.2020 12:25:29
peterk
Hallo
"Bereich" ist bereits ein Range der einem Worksheet zugeordnet ist, daher reicht 

Bereich.ClearContents

;

Forumthreads zu verwandten Themen

VBA Formularschaltflächen im Bereich löschen
WalterK

Hallo,
ist es möglich, alle Formularschaltflächen ab Zeile 136 bis zum Schluss zu löschen, die ab Zeile 1 bis Zeile 135 sollten aber bleiben.
Gefunden habe ich bisher nur Makros die alle Schalftflächen im Blatt löschen.
Besten Dank für die Hilfe.
Servus, Walter
16.01.2014 10:29:12
Thread-ID: 1345424
3 Beiträge
mit VBA vorangehendes Zeichen löschen
Micha

Hallo zusammen,
mit einem Makro finde ich einen Teilstring in einer Zelle. Nun möchte ich ein vorangehendes "+" und diesen Teilstring löschen. Das Problem ist, dass das + manchmal direkt vor dem String steht und manchmal stehen noch andere Zeichen dazwischen, die aber nicht gelöscht werden...
18.02.2014 15:05:59
Thread-ID: 1350226
16 Beiträge
VBA: Zellbereich unter best. Bedingung löschen
Fritz_W

Hallo VBA-Kundige,
ich benötige eure Hilfe wie folgt:
Ich möchte im Tabellenblatt "Daten" den Zellbereich A2:G501 löschen (nur Inhalt, Formate sollten beibehalten werden), aber nur dann, wenn im gleichen Tabellenblatt entweder die Zelle AO1 den Text "Löschen" oder die Zelle AO2 die Zahl...
25.07.2014 09:58:23
Thread-ID: 1372254
3 Beiträge
VBA: Bereiche löschen in externer Mappe
Dieter(Drummer

Guten Morgen, VBA Spezialisten,
Im folgenden Makro wird eine anderes Worbook aufgerufen und in 30 Sheets sollen bestimmte, nicht zusammnen hängende Bereiche gelöscht werden (Makro: Stueck_Marker", die keine Formel enthalten. Das funktioniert bis Sheet "VeraV03" perfekt. Ab dem Sheet "VeraV0...
23.01.2015 09:34:06
Thread-ID: 1404576
23 Beiträge
VBA Bereich löschen
Berndt

Hallo Freunde,
ich möchte in mein Makro den Befehl einbinden, damit es mir einen von bis Bereich löscht.
von und bis wurde meines erachtens ausreichend definiert. Trotzdem weist der Code beim abspielen Fehler auf.
Vll. fällt jmd der Fehler auf.
Beim fett markierten Bereich stopp...
22.09.2016 15:34:26
Thread-ID: 1515855
3 Beiträge
VBA: Zellinhalte in Zellbereich löschen
Fritz

Hallo Forumsbesucher,
ich möchte im Tabellenblatt "Statistik" im Bereich der Spalten E bis AL den Inhalt (nicht das Zellformat) der Zeilen 2 bis 19 löschen, wenn in der Zelle von Zeile 20 der betreffenden Spalte ein "x" enthalten ist.
Beispiel: Steht im Zellbereich E20:AL20 in den Zelle...
12.10.2016 11:02:51
Thread-ID: 1519258
3 Beiträge
VBA: Zeile in einem bestimmten Bereich löschen.
Glanck

Hallo zusammen,
ich habe eine Userform in der ein Button den zuvor angewählten Inhalt der Listbox löscht. Ich möchte aber nicht, dass er in der Datenbank die ganze Zeile löscht sondern von Spalte A bis Spalte C wo er den entsprechenden Wert gefunden hat. Private Sub Löschen1_Click() Dim lZe...
07.05.2017 15:24:09
Thread-ID: 1556821
3 Beiträge
Anzeige
VBA Doppelte Zellinhalte löschen (nicht Duplikate)
Jörg

Hallo Forum,
ich möchte doppelte Zellinhalte löschen - nicht Duplikate entfernen - d.h. die Zeile soll weiterhin stehen bleiben.
Bsp. In Spalte A steht untereinander A, B, C, D
in Spalte B steht untereinander 1,1,2,2,
Gewünschtes Ergebnis ist A,B,C,D und 1, , 2, ,
DAnke für...
06.11.2017 15:53:43
Thread-ID: 1589801
8 Beiträge
löschen von Inhalten bei Farben (VBA)
Inhalten

Hallo,
ich möchte, dass in einem bestimmten Bereich der Inhalt gelöscht wird, wenn die Zellen eine bestimmte Farben haben.
Bei folgenden Farben soll es angewendet werden:
3, 15, 33 und 44
Bisher habe ich folgende Formel, die allerdings nur bei schwarz funktioniert und sich auf d...
01.12.2017 09:21:28
Thread-ID: 1594724
13 Beiträge
VBA Zellinhalte löschen mit mehreren Bedingungen
Stefan

Moin Moin!
In Tabelle 2 stehen ab A2 die Namen, B2 die Vornamen der ca. 300 Mitarbeiter und ab C1 das Datum für die nächsten 4 Jahre.
Die "Datenbank" wird über ein VBA Code beschrieben, den ich aus diesem Forum habe bzw. durch drag and drop direkt ins Tabellenblatt eingetragen. Wochenen...
22.02.2018 13:50:12
Thread-ID: 1610540
7 Beiträge
VBA - Zelleninhalt löschen
Marc

Hallo alle,
ich lösche mittels VBA Code den Zelleninhalt in den grün markierten Bereichen. Jetzt würde ich gerne noch den Zelleninhalt in den gelb markierten Bereichen löschen weiß aber nicht wie ich das anstellen soll. Kann mir da bitte jemand weiterhelfen? Ich habe schon versucht den Code...
27.05.2018 13:47:52
Thread-ID: 1626012
10 Beiträge
VBA Zelleninhalt löschen
Erik

Hallo zusammen.
Ich habe diesen VBA Befehl:
.Cells(i, 14).Clear
allerdings wird damit nicht nur der Inhalt sondern auch die Formatierung gelöscht.
wie kann ich nur den Inhalt löschen?
Gruß
Erik
12.12.2018 16:57:47
Thread-ID: 1662589
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA: Tabellenbereich Löschen in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf einen der Einträge im Projektfenster und wähle Einfügen > Modul.

  3. Kopiere den folgenden Code:

    Public Sub TN_Loeschen()
    Dim wks As Worksheet
    Dim Bereich As Range
    Dim loZ As Long
    Set wks = Sheets("Teilnehmer")
    loZ = wks.Cells(Rows.Count, 1).End(xlUp).Row
    Set Bereich = wks.Range(wks.Cells(2, 1), wks.Cells(loZ, 1))
    Bereich.ClearContents
End Sub

  4. Starte das Makro: Gehe zurück zu Excel, drücke ALT + F8, wähle TN_Loeschen und klicke auf Ausführen. Dies löscht den Inhalt im angegebenen Bereich.

Häufige Fehler und Lösungen

  • Fehler: "Anwendungs- oder objektdefinierter Fehler"

    • Lösung: Stelle sicher, dass du die Zeile für loZ korrekt definiert hast. Es sollte so aussehen: 
      loZ = wks.Cells(Rows.Count, 1).End(xlUp).Row

  • Fehler: "Objekt oder Methode nicht gefunden"

    • Lösung: Ersetze wks.Bereich.ClearContents durch Bereich.ClearContents, da Bereich bereits als Range deklariert ist.

Alternative Methoden

Wenn du die gesamte Zeile oder einen anderen Bereich löschen möchtest, kannst du folgende Methoden verwenden:

  • Für das Löschen der gesamten Zeilen:

    Bereich.EntireRow.ClearContents

  • Für das Löschen eines spezifischen Bereichs:

    wks.Range("A2:A10").ClearContents

Praktische Beispiele

  • Beispiel 1: Löschen des Inhalts in einem definierten Bereich.

    wks.Range("B2:D10").ClearContents

  • Beispiel 2: Verwendung von Selection zum Löschen.

    Selection.ClearContents

Tipps für Profis

  • Nutze die With-Anweisung, um deinen Code zu optimieren:

    With wks
    .Range(.Cells(2, 1), .Cells(loZ, 1)).ClearContents
End With

  • Achte darauf, dass die richtige Datenart verwendet wird (Long statt Integer für Zeilenindizes), um Überlauf-Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich einen Bereich in Excel löschen, ohne das gesamte Arbeitsblatt zu beeinflussen? Du kannst einen spezifischen Bereich mit Range("A1:A10").ClearContents löschen, um nur die Inhalte in diesen Zellen zu entfernen.

2. Was ist der Unterschied zwischen ClearContents und Delete? ClearContents löscht nur den Inhalt der Zellen, während Delete die Zellen selbst entfernt und die darunterliegenden Zellen nach oben verschiebt.

3. Kann ich die Methode auch für andere Excel-Versionen verwenden? Ja, der VBA-Code ist mit den meisten Excel-Versionen kompatibel. Stelle sicher, dass du die entsprechenden Objekte und Methoden verwendest.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige