Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalten löschen mit VBA

Spalten löschen mit VBA
Bernhard
Hallo Forumsmitglieder,
ich habe ein für VBA-erprobte sehr einfaches Problem, stehe aber leider gerade erst am Anfang meiner VBA Karriere :-)
Ich würde gerne die Spalten EE bis zum Ende des Sheets, also XFD löschen.
Hier der Code: Für die Zeilen funktioniert der Code wunderbar, nur bei den Spalten bekomme ich einen Laufzeitfehler 1004.
Sub Clear()
ActiveSheet.Rows("501:1048576").Delete
ActiveSheet.Columns("EE:XFD").Delete
Call Cut_DOWN
End Sub
Danke schon mal für eure Hilfe!
Bernhard
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Bereich bis letzte Spalte löschen
14.10.2010 11:14:31
NoNet
Hallo Bernhard,
hier 2 Alternativen :
1.) : Range([EE1].EntireColumn,Columns(Columns.Count)).Delete
2.) : Range(Columns(135),Columns(Columns.Count)).delete
(135 ist die 135. Spalte, also Spalte EE)
Gruß, NoNet
AW: Bereich bis letzte Spalte löschen
14.10.2010 12:05:05
Bernhard
Danke für die schnelle Hilfe
AW: Bereich bis letzte Spalte löschen
14.10.2010 15:21:49
Bernhard
Danke für die schnelle Hilfe
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Spalten löschen mit VBA


Schritt-für-Schritt-Anleitung

Um Spalten in Excel mit VBA zu löschen, gehe wie folgt vor:

  1. Öffne Excel und erstelle ein neues Makro.

  2. Füge den folgenden Code in das Modul ein:

    Sub Clear()
       ActiveSheet.Rows("501:1048576").Delete
       ActiveSheet.Columns("EE:XFD").Delete
       Call Cut_DOWN
    End Sub
  3. Achte darauf, dass Du die Zeilen und Spalten, die Du löschen möchtest, korrekt angibst.

  4. Führe das Makro aus, um die gewünschten Spalten zu löschen.

Falls Du nur bestimmte Spalten löschen möchtest, kannst Du den Code entsprechend anpassen.


Häufige Fehler und Lösungen

  • Laufzeitfehler 1004: Dieser Fehler tritt häufig auf, wenn Du versuchst, eine nicht existierende Spalte zu löschen. Stelle sicher, dass die angegebenen Spalten korrekt sind.
  • Spalten nicht gelöscht: Überprüfe, ob das Arbeitsblatt, auf dem Du arbeitest, aktiv ist. Das Makro wirkt nur auf das aktive Arbeitsblatt.
  • Falsche Bereiche löschen: Achte darauf, dass Du die richtigen Zeilen und Spalten angibst, um versehentliche Löschungen zu vermeiden.

Alternative Methoden

Hier sind zwei alternative Methoden, um Spalten mit VBA zu löschen:

  1. Verwende den folgenden Code:

    Range([EE1].EntireColumn, Columns(Columns.Count)).Delete
  2. Eine weitere Möglichkeit:

    Range(Columns(135), Columns(Columns.Count)).Delete

    (Hierbei ist 135 die Spaltennummer für EE.)

Diese Methoden sind nützlich, wenn Du flexibel mit den Spalten umgehen möchtest.


Praktische Beispiele

  • Beispiel 1: Löschen von mehreren Spalten

    Um mehrere Spalten auf einmal zu löschen, kannst Du diesen Code verwenden:

    ActiveSheet.Columns("A:C").Delete ' Löscht die Spalten A bis C
  • Beispiel 2: Löschen der letzten Spalten bis XFD

    Möchtest Du alle Spalten ab EE bis zur letzten Spalte löschen, nutze:

    ActiveSheet.Columns("EE:XFD").Delete

Diese Beispiele zeigen, wie Du mit vba spalten löschen effizient arbeiten kannst.


Tipps für Profis

  • Automatisierung: Erstelle ein Excel-Makro, das regelmäßig Spalten löscht, um Deine Daten aktuell zu halten.
  • Sicherheitskopien: Mache vor dem Löschen von Spalten immer eine Sicherheitskopie Deiner Daten.
  • Benutzerdefinierte Funktionen: Entwickle benutzerdefinierte Funktionen, um das Löschen von Spalten zu optimieren.

Mit diesen Tipps kannst Du Deine Kenntnisse im Bereich excel vba spalte löschen weiter verbessern.


FAQ: Häufige Fragen

1. Wie kann ich nur den Inhalt einer Spalte löschen, ohne die Spalte selbst zu entfernen?
Verwende den folgenden Code, um den Inhalt einer Spalte zu leeren:

ActiveSheet.Columns("A").ClearContents

2. Gibt es eine Möglichkeit, mehrere nicht zusammenhängende Spalten zu löschen?
Ja, Du kannst mehrere nicht zusammenhängende Spalten in einer Zeile löschen:

ActiveSheet.Columns("A, C, E").Delete

Diese Antworten helfen Dir, häufige Herausforderungen beim vba spalte löschen zu überwinden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige