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

Inhalt eines Bereichs löschen mit VBA

Forumthread: Inhalt eines Bereichs löschen mit VBA

Inhalt eines Bereichs löschen mit VBA
07.02.2008 18:15:00
Mister
Guten Abend,
wie kann man per VBA die Zellenwerte eine Bereichs (Tabelle "Statistik" A1:Z50) per VBA löschen. Die Formeln in dem Bereich sollen nicht gelöscht werden.
Gruß
Martin

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt eines Bereichs löschen mit VBA
07.02.2008 18:26:54
Reinhard
Hi Martin,
das geht nicht. Wenn nur dadurch daß die zellen die in der Formel berchnet werden, z.B. =summe() gelöscht werden und du die Nullanzeige unterdrückst, aber so ganz verstehe ich nicht was du planst.
Erzähl mal mehr was du da willst.
Gruß
Reinhard

AW: Inhalt eines Bereichs löschen mit VBA
07.02.2008 18:32:26
Mister
Hallo,
Ich habe eine Tabelle erstellt, eine Art Statistik. Jeden Tag wird die Statistik per Makro automatisch eingetragen. Formeln in der Tabelle bearbeiten die Einträge. Am letzten Tag des Monats wird die gefüllte Tabelle per VBA gespeichert.
Ich mochte gleichzeitig die Einträge in dieser Tabelle löschen aber nicht die Formeln, sodass die Tabelle am ersten des nächsten Monats wieder jungfräulich ist.
Gruß
Martin

Anzeige
AW: mal sehen ob ich Dich verstanden habe
07.02.2008 19:41:00
Mister
Hallo,
so umgebaut:

Sub KeineFormel()
Dim C As Variant
For Each C In Range("A1:C16")
C.Select
If C.HasFormula = False Then ActiveCell.ClearContents
Next
End Sub


klappt's super. Vielen dank
Gruß
Martin

Anzeige
... das geht auch ohne Select !
07.02.2008 19:49:00
Matthias
Hallo
Das Select hatte ich nur zur Demontration drin. ;o)

Sub ohneselect()
Dim C As Variant
For Each C In Range("A1:C16")
If C.HasFormula = False Then C.ClearContents
Next
End Sub


Userbild

Anzeige
AW: ... das geht auch ohne Select !
07.02.2008 19:55:58
Original
Hi,
das geht auch ohne Schleife!
mfg Kurt

AW: ... das geht auch ohne Select !
07.02.2008 22:08:00
Matthias
Hallo Kurt
wie geht so etwas denn ohne Schleife? Kannst Du ein Beispiel posten?
Gruß Matthias

AW: ... das geht auch ohne Select !
07.02.2008 23:05:34
Original
Hi,
aus dem Archiv von K.Rola:

Sub ohne_Schleife()
On Error Resume Next
[A1:C16].SpecialCells(2, 23).ClearContents
If Err  0 Then MsgBox "Keine Konstanten vorhanden!           ", 64, "Weise hin..."
End Sub


mfg Kurt

Anzeige
genial , danke ;o) oT
08.02.2008 08:24:00
Matthias
;

Forumthreads zu verwandten Themen

Zelleninhalt ab Ziffer löschen
Helmut

Hallo,
wer kann mir bei meinem Problem helfen?
Folgendes ich habe Zellen mit dem Inhalt z. B.:
Wort Wort Wort Ziffer mehrere Buchstaben oder Wort Wort Wort (Wort) Ziffer mehrere Buchstaben.
Die Wortanzahl kann variieren.
Ich will dass in der Zelle nur noch die Wörter stehen...
28.01.2010 19:19:49
Thread-ID: 1133917
5 Beiträge
VBA: bei Wert 0 in Zelle A5, Zeile 9 löschen
Steffen

Hallo zusammen,
ich benötige kurz eure kompetente Hilfe!
Ich habe folgendes Problem....
Wenn in Zelle A5 in Mappe1 der Wert 0 steht dann soll die Zeile 9 in Mappe2 gelöscht werden.
Ich hoffen mir kann jemand weiterhelfen!
Vielen Dank für die Hilfe und einen Lieben Gruß
S...
04.09.2010 18:17:19
Thread-ID: 1175718
13 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
VBA Vergleich Zelleninhalt
Peter

Hallo VBA Gemeinde
Ich hadere seit zwei Tagen an einer, vom Verständnis her simplen Abfrage. Ich bekomme einfach nicht den richtigen Bogen und vielleicht könnt Ihr mir mit ein paar Codeschnipseln weiterhelfen.
Grundsätzlich geht es darum mittels Schleife (akt. for each) eine Tabelle in...
17.01.2011 12:19:10
Thread-ID: 1195952
3 Beiträge
Zelleninhalten löschen via Makro
Martin

Hallo,
Matthias L. hat mir ein gutes Makro geschrieben zum Löschen von Zelleninhalten. Nachdem ich mir den Code mehrfach durchgelesen habe verstand ich ihn auch und konnte ihn anpassen.
Nun habe ich ihn auch für folgende neue Anforderung anpassen wollen:
1. Finde einen bestimmten W...
03.03.2011 12:51:52
Thread-ID: 1204030
4 Beiträge
Anzeige
Vba zellen mit bestimmten Inhalt formatieren
thomas

Hallo Leute
Ich würde gerne bestimmte Zellen per VBA so formatieren, dass bei einem bestimmten Inhalt ein Zellbereich mit einer Dicken Linie oben bzw. unten formatiert wird.
Ich habe eine Excel-Datei in der per Makro 2 Zeilen mit den Wörtern "Zwischensumme" und "Übertrag" an jedem Seit...
05.09.2011 07:33:20
Thread-ID: 1228619
3 Beiträge
VBA - Bei jedem Klick eine Zelle löschen
WalterK

Hallo,
ich habe ein Steuerelement und möchte erreichen, dass jedesmal, wenn ich im Steuerelement einen Namen anklicke der Inhalt der Zelle L1 gelöscht wird.
Hier eine Beispielmappe:
https://www.herber.de/bbs/user/80923.xls
Besten Dank für die Hilfe und Servus, Walter
10.07.2012 19:57:58
Thread-ID: 1270508
3 Beiträge
per VBA zellen kopieren und löschen
Willi

Hallo Leute,
ich brauche mal wieder eure Hilfe.
Die Tabelle (https://www.herber.de/bbs/user/81194.xlsm). Das mit den Zellen färben ist soweit OK. Jetzt will ich aber, wenn in M6 ein Kreuz gesetzt wird, dass das Kreuz in L6 verschwindet und das aktuelle Datum vom Tag in N6 eingetragen wi...
30.07.2012 00:01:49
Thread-ID: 1273054
3 Beiträge
Zelleninhalt G1 und H1 löschen falls A1 leer
Arthur

Guten Tag zusammen
Ich benötige eure Hilfe:
Gibt es eine Formel (wohl eher VBA) wo ich definieren oder ausführen kann, wenn in A1 nichts drin steht dann lösche mir den Inhalt von G1 und H1.
Wenn in A2 etwas drin steht dann lasse mir G2 und H2
Wenn in A3 nichts drin steht dann lö...
19.10.2012 16:22:00
Thread-ID: 1282882
5 Beiträge
fett formatierte Zellen Inhalt löschen
Albert

Hallo,
ich bearbeite mit Arbeitskollegen freigegebene Tabellen. Jeder formatiert seine Zellen
anders.
Ich möchte jetzt gerne die Zellen die Fett formatiert sind, den Inhalt
löschen.
Bisher mache ich das per Entfernen-Taste per Hand.
Geht das vielleicht auch einfacher per...
25.11.2012 11:34:33
Thread-ID: 1287928
2 Beiträge
Anzeige
Zelleninhalt löschen mit for Schleife
Tobiax

Hallo!
Es soll Zeile für Zeile (51-66) überprüft werden, ob in einer der Zellen in den Spalten R-W ein "e" oder "E" steht.
Wenn ja, dann soll der Inhalt der Zeile von D-W gelöscht werden.
Mit der for Schleife und doppelter Bedingung bekomme ich das leider nicht hin.
Tobiax...
13.02.2013 13:53:27
Thread-ID: 1299152
6 Beiträge
Zelleninhalt löschen mit for Schleife
Tobiax

Hallo!
Es soll Zeile für Zeile (51-66) überprüft werden, ob in einer der Zellen in den Spalten R-W ein "e" oder "E" steht.
Wenn ja, dann soll der Inhalt der Zeile von D-W gelöscht werden.
Mit der for Schleife und doppelter Bedingung bekomme ich das leider nicht hin.
Tobiax...
13.02.2013 15:03:21
Thread-ID: 1299168
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Inhalte eines Bereichs mit VBA löschen

Schritt-für-Schritt-Anleitung

Um den Inhalt eines bestimmten Bereichs in Excel mit VBA zu löschen, ohne die Formeln zu beeinträchtigen, kannst du folgende Schritte durchführen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den Visual Basic for Applications Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf „VBAProject (DeinWorkbookName)“ und wähle „Einfügen“ > „Modul“.

  3. Kopiere den Code:

    • Verwende den folgenden Code, um den Inhalt im Bereich „A1:C16“ zu löschen, während die Formeln erhalten bleiben:
    Sub KeineFormel()
   Dim C As Range
   For Each C In Range("A1:C16")
       If Not C.HasFormula Then C.ClearContents
   Next C
End Sub

  4. Führe das Makro aus:

    • Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle dein Makro aus und klicke auf „Ausführen“.

Häufige Fehler und Lösungen

  • Fehler: „Kein Objekt gefunden“
    Lösung: Stelle sicher, dass der angegebene Bereich (z.B. „A1:C16“) existiert und korrekt geschrieben ist.

  • Fehler: „Methoden oder Eigenschaften nicht gefunden“
    Lösung: Überprüfe, ob du den richtigen Code ohne Syntaxfehler kopiert hast.

  • Formeln werden gelöscht
    Lösung: Vergewissere dich, dass du If Not C.HasFormula Then korrekt implementiert hast, um Formeln zu schützen.

Alternative Methoden

Es gibt verschiedene Ansätze, um Inhalte in Excel mit VBA zu löschen:

  1. Ohne Schleife: Du kannst den Inhalt eines Bereichs auch ohne Schleife löschen, indem du SpecialCells verwendest:

    Sub ohne_Schleife()
   On Error Resume Next
   [A1:C16].SpecialCells(xlCellTypeConstants).ClearContents
   If Err <> 0 Then MsgBox "Keine Konstanten vorhanden!", 64, "Hinweis"
End Sub

  2. Bereich ohne Select löschen: Um den Bereich ohne Verwendung von Select zu löschen, kannst du folgenden Code nutzen:

    Sub ohneselect()
   Dim C As Range
   For Each C In Range("A1:C16")
       If Not C.HasFormula Then C.ClearContents
   Next C
End Sub

Praktische Beispiele

  • Beispiel 1: Löschen von Inhalten in einer bestimmten Tabelle:

    Sub Bereich_löschen()
  Sheets("Statistik").Range("A1:Z50").ClearContents
End Sub

  • Beispiel 2: Formeln beibehalten und nur Werte löschen:

    Sub Werte_löschen()
  Dim Bereich As Range
  Set Bereich = Sheets("Statistik").Range("A1:Z50")
  For Each Zelle In Bereich
      If Not Zelle.HasFormula Then Zelle.ClearContents
  Next Zelle
End Sub

Tipps für Profis

  • Verwende On Error Resume Next: Dies hilft dir, Fehler zu ignorieren, die auftreten könnten, wenn der angegebene Bereich keine Zellen enthält.

  • Optimiere deinen Code: Wenn du häufig mit großen Datenmengen arbeitest, vermeide Schleifen und nutze Methoden wie SpecialCells, um die Leistung zu verbessern.

  • Teste in einer Kopie: Bevor du Makros auf wichtige Daten anwendest, teste sie immer in einer Sicherheitskopie deiner Datei.

FAQ: Häufige Fragen

1. Wie kann ich einen gesamten Bereich löschen?
Du kannst den gesamten Bereich mit Range("A1:Z50").ClearContents löschen. Dies entfernt jedoch auch Formeln.

2. Was passiert, wenn ich ActiveCell.ClearContents benutze?
ActiveCell.ClearContents löscht nur den Inhalt der aktuell ausgewählten Zelle. Verwende stattdessen eine Schleife, um mehrere Zellen zu ändern.

3. Kann ich VBA nutzen, um nur bestimmte Zelltypen zu löschen?
Ja, du kannst SpecialCells verwenden, um nur bestimmte Zelltypen wie Konstanten oder Formeln zu löschen.

Beliebteste Forumthreads (12 Monate)

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