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

Zellinhalte per VBA löschen

Forumthread: Zellinhalte per VBA löschen

Zellinhalte per VBA löschen
21.12.2025 15:26:01
Lutz
Hallo,
Ich möchte die Zellinhalte der Aktiven Zelle und der nächsten 10 rechts angrenzenden Zellen löschen. Formeln, Formatierungen, Schriftarten sollen bestehen bleiben.
Für einen VBA Code bedanke ich mich.

Gruß Lutz
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalte per VBA löschen
21.12.2025 15:30:10
RPP63
Moin! 
ActiveCell.Resize(, 10).ClearContents

Gruß Ralf
AW: Zellinhalte per VBA löschen
21.12.2025 15:44:00
GerdL
Moin Lutz! 
ActiveCell.Resize(1, 11).SpecialCells(xlCellTypeConstants).ClearContents

Gruß Gerd
AW: Zellinhalte per VBA löschen
22.12.2025 14:50:11
GerdL
Moin.
Noch bei Bedarf für leeren Bereich ohne Fehlerbehandlung. 
Sub Unit()

  

    Dim C As Range

    

    For Each C In ActiveCell.Resize(1, 11).Cells

       If Not C.HasFormula And Not C.HasArray Then C.ClearContents

    Next



End Sub

Gruß Gerd
Anzeige
AW: Zellinhalte per VBA löschen
21.12.2025 16:06:31
RPP63
Hast ja recht, Gerd!
Schließlich sind 1 + 10 immer noch 11 ;-)
[aber Resize(1, 11) ist überflüssig, da beide Parameter optional sind]

Gruß Ralf
AW: Zellinhalte per VBA löschen
21.12.2025 18:55:10
Daniel
Naja, das Komma muss man trotzdem schreiben.
Außerdem sorgt es für mehr Klarheit, wenn man optionale Parameter mit angibt und man ist vor überrschungen sicher, falls der Default-Wert ein anderer ist als man erwartet.
Von daher ist der Rat, optionale Parameter nicht anzugeben, selten ein guter.
Anzeige
AW: Zellinhalte per VBA löschen
21.12.2025 19:08:58
RPP63
Ich hatte ja heute ohnehin einen eher schlechten Tag, Daniel!
Schließlich habe ich auch übersehen, dass Formeln nicht gelöscht werden sollen.
Daher ist Gerds Lösung mit SpecialCells(xlCellTypeConstants) die einzig zielführende.

Aber zu den optionalen Parametern habe ich dennoch eine andere Meinung.
Bei Parameter-Bandwürmern kann man sich mit Auslassen durch ,,,,-Kolonnen behelfen (wie es snb ja gern macht) oder gleich den benannten Parameter nutzen.
Bei Resize ist es Humbug, aber Resize(, 11) ist das Gleiche wie Resize(ColumnSize:=11)
Aber das weißt Du ja.

Gruß Ralf
Anzeige
AW: Zellinhalte per VBA löschen
21.12.2025 19:20:59
Luschi
Hallo Ralf,

- das Problem liegt nicht bei Resize(1, 11) bzw. Resize(, 11)
- sondern bei SpecialCells(xlCellTypeConstants)
- denn wenn es keine Zellen gibt, die diese Einschränkung erfüllen
- dann schepperts gewaltig im Gebälk
- hier ist 1 Fehlerkorrektur erforderlich, wie z.B: 

Sub Machmal()

    Dim rg As Range

    

    On Error Resume Next

    Set rg = ActiveCell.Resize(1, 11).SpecialCells(xlCellTypeConstants)

    If Not rg Is Nothing Then

       rg.ClearContents

       Set rg = Nothing

       On Error GoTo 0

    End If

End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Zellinhalte per VBA löschen
21.12.2025 19:29:55
RPP63
Die Replik solltest Du aber eher GerdL geben. ;-)
Ich verwende grundsätzlich On Error Resume Next bei SpecialCells, würde aber bei Deinem Beispiel die Reihenfolge ändern: 
Sub Machmal()

    Dim rg As Range

    

    On Error Resume Next

    Set rg = ActiveCell.Resize(1, 11).SpecialCells(xlCellTypeConstants)

    On Error GoTo 0

    If Not rg Is Nothing Then rg.ClearContents

End Sub

Begründung:
Bei Dir wird nicht gelöscht, wenn bspw. ein Blattschutz besteht und der Anwender bekommt davon nix mit (wg. On Error)
Bei mir käme zumindest der 1004er

Gruß Ralf
Anzeige

Forumthreads zu verwandten Themen

Inputbox in Makro integrieren
Frank

Hallo Forum,
ich hab mir zum Färben von Zeilen in einem Excel Arbeitsblatt ein Makro gebaut.
Dieses Formatiert die Daten und färbt bestimmte Zeilen einer definierten Spalte X, bei denen Zellen ein Datum enthalten.
Das Makro schaut folgendermaßen aus (bitte nicht lachen, ist halt im...
14.09.2016 16:38:25
Thread-ID: 1514376
1 Beitrag
Excel2010 - Makro Multiplikation best. Zellen (Exc
Hendrik

Hallo zusammen,
ich habe in Excel eine unendlich lange Liste mit Daten, deren Bearbeitung ich mir mit einem Makro wesentlich vereinfachen möchte. Leider bin ich auf VBA-Ebene eine absoluter Anfänger, weswegen ich über ein einfaches Grundgerüst nicht hinauskomme. Meine Problematik:
Ich...
27.12.2011 15:40:14
Thread-ID: 1243623
1 Beitrag
VBA Mailversand ohne leere Zellen
Klaus

Hallo zusammen.
Ich hätte da für die Experten hier mal wieder eine kleine Aufgabe.
Als erstes mal mein "Problem-Makro":
Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("J37:S38") If Not Application.Intersect(KeyCells, Range(Target.Addre...
07.03.2018 14:43:06
Thread-ID: 1612750
8 Beiträge
Zeile mit aktivierter Zelle per VBA löschen?
Jeremy

Hallo,
ich bräuchte ein Makro, dass bestimmte Zellen sucht, in der zum Beispiel ein : mit drin steht. Zeilen mit Zellen in denen ein : auftauchen, sollen dann komplett gelöscht werden! Kann mir wer helfen, wie ich des machen kann?
mfG
Jeremy
13.07.2004 10:08:40
Thread-ID: 454220
2 Beiträge
Kriterium Autofilter variabel auslesen & einsetzen
bjoern

Hallo Forumsmitglieder,
ich habe da ein Problem - für Euch wird es sicherlich einfach sein.
Folgender Sachverhalt. Ich habe eine Excel-Liste, in der bestimmte Werte in einer bestimmten Spalte mit "nein" gesetzt werden sollen. Dafür habe ich Makro übernommen, dass ich nachpflege.
Ich...
24.11.2008 12:57:57
Thread-ID: 1027250
3 Beiträge
Anzeige
Zeilen / Zellen in Zieltabelle übertrage
Fiffi
Liebe Excel freaks,
ich habe aktuell folgendes Problem:
=> aus einer Quelltabelle (11 Spalten A-K) möchte ich alle mit Werten befüllte Zeilen (freilich ohne die Kopfzeile) auf Knopfdruck in eine Zieltabelle übertragen.
=> in dieser Zieltabelle sind typischerweise bereits analoge...
02.11.2021 18:37:52
Thread-ID: 1854733
14 Beiträge
Anzeige
Makro optimieren
Thomas

Hallo VBA Experten
Ich hab folgendes Makro. Es funktioniert auch ohne Probleme, ABER dauert eindeutig zu lange.
Ich hoffe jemand kann sich den code mal anschauen und mir helfen es zu optimieren (vor allem Rechnenzeit).
Meine Kenntnisse in VB sind eher begrenzt.
Das Makro befinde...
09.06.2006 13:44:59
Thread-ID: 771658
1 Beitrag
Löschen von Spalten u Setzen von SVerweis
Spalten

Hallo zusammen,
von fcs habe ich folgende VBA-Codes bekommen, um per Doppelklick in Spalte B (und Bestätigung) die Spalten E, F und G zu leeren und in Spalte B "frei" zu schreiben. KLappt soweit auch super!! :-)
Im Tabellenblatt:
'Code unter dem Tabellenblatt in dem die Daten einge...
18.07.2014 20:35:39
Thread-ID: 1371128
1 Beitrag
Mehrere Datein mit VBA zusammen Führen. Quelldatein und Muster-Datein habe Unterschiedliche Struktur
Telesphore

Hallo Zusammen ,
ich versuche mehrere Excel Datein (Quelldadein) in einem Muster-Dadein zusammenzuführen.
1) Quelldatein (xls) und Muster-Datein haben unterschiedliche Struktur
2) jeder Monat bekomme ich ein Quelldatei ( wichtig sind nur Spalten mit als Titel: Inventurnummer, Nr. un...
31.01.2020 14:06:33
Thread-ID: 1737709
3 Beiträge
Inhalt von färbigen Felder per VBA löschen?
färbigen

Liebe Forumsfreunde!
Ich hab folgendes Makro, mit dem ich den Inhalt der Zellen leeren kann, in denen keine Formel vorhanden ist. Ich möchte diese aber ummodeln, und zwar soll das Makro alle Zellen kontrollieren in der Tabelle wo z.b. die Zelle gelben Hintergrund hat.
Wie müßte das Makr...
13.09.2005 10:03:18
Thread-ID: 666298
3 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum