Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code Spalten (mit Namen) löschen

Forumthread: VBA Code Spalten (mit Namen) löschen

VBA Code Spalten (mit Namen) löschen
06.05.2021 00:15:01
Patrick
Guten Tag,
ich bekomme es alleine einfach nicht hin und frage daher hier um Hilfe.
Ich habe eine ExcelDatei mit ca. 150 Spalten. Die Spalten selbst haben ca 1000 Zeileneinträge. Ich würde gerne per Makro immer die gleichen Spalten löschen lassen. Dabei sollten die Spalten aber nicht nach deren Position, sondern nach deren Namen identifiziert und gelöscht werden, da sich die Reihenfolge und Spaltenanzahl immer wieder verändern wird.
Es geht dabei um eine Datei, die anonymisiert werden muss. Beispiele für Spaltennamen sind Name, Vorname, Telefonnummer, p_name_aus etc. Von den 150 Spalten müssen ca. 15 gelöscht werden.
Im besten Fall sollte nur deren Inhalt (alle Zeilen außer Nr. 1 mit dem Spaltennamen) gelöscht werden, damit man sieht, in welchen Spalten der Inhalt entfernt wurde, ansonsten ist aber auch eine Löschung der ganzen Spalte in Ordnung
Könnte mir damit jemand weiterhelfen?
Vielen dank schon mal im Voraus
Mfg
Patrick Frank
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code Spalten (mit Namen) löschen
06.05.2021 06:12:05
MCO
Hallo Patrick!
Das sollte funktionieren :-)

Sub spalten_löschen()
For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
If Cells(1, i) = "Name" Or Cells(1, i) = "Vorname" Or Cells(1, i) = "Tel" Then
Columns(i).Delete
End If
Next i
End Sub
Gruß, MCO
Anzeige
AW: VBA Code Spalten (mit Namen) löschen
06.05.2021 11:01:49
Patrick
Liebe MCO,
super, funktioniert wunderbar
Vielen Dank und noch einen schönen Tag
Patrick Frank
;

Forumthreads zu verwandten Themen

Spalten lassen sich nicht auf Breite 0 schieben
Gordon

Moin,
ich versuche gerade per Makro bestimmte Spalten auf die Breite 0 zu schieben. Als es da fr mich unerklärliche Probleme gab, hab ich mal versucht, die Spalten per Hand auf Breite null zu schieben und siehe da, folgende Meldung erscheint: "Objekte können nicht über das Blatt hinausver...
17.09.2008 14:10:57
Thread-ID: 1010385
4 Beiträge
Makro langsam - Spalten löschen und Format
F.

Hallo zusammen
Das folgende Makro habe ich für acht Buchungskreise zusammengebastelt (mir Eurer Hilfe). Alles befindet sich in der gleichen Arbeitsmappe.
Jeder Kreis hat ein Berechnungsblatt und ein Datenblatt. Im Ersteren befindet sich eine Schaltfläche. Diese wird für jeden Kreis ei...
22.07.2009 12:31:31
Thread-ID: 1090484
7 Beiträge
#NV in Spalte löschen per VBA
edie

Hallo zusammen,
ich versuche vergebens die #NV in der Spalte B per VBA zu löschen bzw. durch eine Null ersetzen.
Das Makro stoppt bei: 'If Cells(i, 2) = "#NV" Then' mit der Fehlermeldung: 'Typen unverträglich'.
Weiß nicht mehr weiter, deshalb bitte um Hilfe, wenn's geht.
Sub Te...
16.02.2010 14:12:15
Thread-ID: 1138929
4 Beiträge
Anzeige
Spalten lassen sich nicht einblenden?
Reinhard

Hallo Wissende,
wegen einer Anfrage zu einem anderen problem bekam ich eine Mappe.
In Tabelle1 sind die Spalten D und E ausgeblendet.
Mir gelingt es nicht sie einzublenden.
Weder mit
Sub tt() Columns(4).Hidden = False Columns(5).Hidden = False End Sub oder manuell.
Blat...
01.03.2010 17:59:12
Thread-ID: 1142460
7 Beiträge
Anzeige
Namen lassen sich nicht löschen
Heinz

Guten Morgen Excellenten,
Montag-Morgen und der Ärger geht an.
Ich habe für jeden Kollegen eine Stundenerfassungsliste
erstellt. Dort sind Namen vergeben, die ich in anderen
Dateien für die Auswertung verwerden.
Das Problem. Durch was auch immer enstanden:
Wenn ich nur d...
21.02.2011 09:29:49
Thread-ID: 1202004
3 Beiträge
VBA: Zeilen mit Eintrag in Spalte B löschen
Martin

Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Colum...
13.04.2011 15:29:24
Thread-ID: 1210256
7 Beiträge
Makro Zeilen / Spalten löschen
claus

Hallo,
ich würde gerne per Makro Spalten und Zeilen nach folgendem Kriterium löschen wollen.
Wenn in der Zeile 1 ein "-" Symbol vorhanden ist, dann soll die entsprechende Spalte gelöscht werden.
Wenn in der Spalte A ein "-" Symbol vorhanden ist, dann soll die entsprechnde Zeile gelö...
11.03.2013 18:04:57
Thread-ID: 1303225
10 Beiträge
VBA Zeile löschen, erste Spalte verbunden
terraner3

Liebe Forumsgemeinde,
ich hoffe, dass mir jemand bei folgender Fragestellung weiterhelfen kann :-)
Ausgangssituation:
Eine Liste von Projekten welche bestimmten Standorten zugeordnet sind. Das bedeutet, die erste Zelle einer Spalte enthält den Standort z.B. "Berlin" oder "Hamburg"....
28.05.2013 15:24:18
Thread-ID: 1315264
11 Beiträge
VBA Wert in Spalte prüfen dann Zeile löschen
Michael

Hallo, ich habe mal wieder eine kleine Frage :)
ich habe in Spalte A Kundennummern stehen und in Spalte B ein Datum. Wie bekomme ich das per VBA gelöst:
Script prüft ob das Datum in Spalte B "jünger" als 30.09.2013 ist, wenn ja dann lösche die komplette Zeile.
Ich freue mich über eu...
17.10.2013 06:21:34
Thread-ID: 1334668
8 Beiträge
Makro Spalten löschen in einer Excel-Fehlermeldung
Soeren

Sub Clear() ActiveSheet.Rows("8:10").Delete ActiveSheet.Columns("H:J").Delete ActiveSheet.Rows(16).Delete ActiveSheet.Columns("P:P").Delete ActiveSheet.Rows("18:23").Delete ActiveSheet.Columns("R:W").Delete ActiveSheet.Rows("25:27").Delete ActiveSheet.Columns("Y:AA").Delete ActiveSheet.Rows("2...
01.12.2014 16:30:34
Thread-ID: 1395559
3 Beiträge
Spalten löschen mit VBA
Hans-Werner

Hallo an alle VBA-Spezialisten,
leider habe ich zu folgendem Problem noch keine Lösung gefunden/bekommen, daher meine erneute, dringende Anfrage:
Wie lösche ich in einem Makro Spalten aus einer Tabelle, so dass Shapes in den nachfolgenden Spalten mit ihrer Formatierung in den Bereich de...
25.05.2015 12:50:30
Thread-ID: 1427641
3 Beiträge
Tabelle mit VBA öffnen, Spaltenabgleich & löschen
benny

Hallo,
ich habe ein kleines Problem. Ich habe eine Userform in eine Excel hinterlegt (siehe Code unten). Sinn dahinter ist, dass ich mit dieser Userform über die Eingabe des Pfades in Textbox1 eine andere Excel datei öffne, welche dann weiterbearbeitet werden soll, indem der Zelleninhalt e...
07.08.2015 12:48:20
Thread-ID: 1441031
16 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA Code zum Löschen von Spalten anhand der Namen

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei: Stelle sicher, dass du die Datei mit den Spalten, die du löschen möchtest, geöffnet hast.

  2. Öffne den VBA-Editor: Drücke ALT + F11, um den Microsoft Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Erstelle ein neues Modul:

    • Klicke im Menü auf Einfügen und wähle Modul.

  4. Füge den folgenden VBA-Code ein:

    Sub spalten_löschen()
   For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
       If Cells(1, i) = "Name" Or Cells(1, i) = "Vorname" Or Cells(1, i) = "Tel" Then
           Columns(i).Delete
       End If
   Next i
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle spalten_löschen und klicke auf Ausführen.

Diese Schritte ermöglichen es dir, gezielt Spalten auf Basis ihrer Namen zu löschen, ohne die Position der Spalten zu berücksichtigen.

Häufige Fehler und Lösungen

  • Fehler: Spalten lassen sich nicht löschen
    Lösung: Überprüfe, ob die Spaltennamen in der ersten Zeile exakt mit den im Code angegebenen Namen übereinstimmen (z.B. "Name", "Vorname", "Tel").

  • Fehler: Makro wird nicht ausgeführt
    Lösung: Stelle sicher, dass du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter und aktiviere die Makros.

Alternative Methoden

  1. Excel Formeln: Du kannst auch eine Hilfsspalte erstellen, die die Namen der zu löschenden Spalten auflistet, und dann manuell die Werte der entsprechenden Spalten löschen.

  2. Filterfunktion: Verwende die Filterfunktion, um nur die gewünschten Daten anzuzeigen und dann die nicht benötigten Spalten zu löschen.

  3. Power Query: Mit Power Query kannst du Daten transformieren und unerwünschte Spalten ganz einfach entfernen.

Praktische Beispiele

  • Beispiel 1: Wenn du die Spalten "Name" und "Vorname" sowie "Tel" löschen möchtest, passe den Code wie folgt an:

    If Cells(1, i) = "Name" Or Cells(1, i) = "Vorname" Or Cells(1, i) = "Tel" Then

  • Beispiel 2: Möchtest du nur den Inhalt der Spalten löschen, statt sie komplett zu entfernen, kannst du den Code anpassen:

    Cells(2, i).Resize(ActiveSheet.UsedRange.Rows.Count - 1).ClearContents

Tipps für Profis

  • Verwende dynamische Bereiche: Anstatt die Anzahl der Spalten statisch zu definieren, kannst du ActiveSheet.UsedRange verwenden, um den aktiven Bereich dynamisch zu erfassen.

  • Sichere Daten vor dem Löschen: Erstelle immer ein Backup deiner Daten, bevor du Massenlöschungen durchführst, um versehentliche Datenverluste zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich den Code anpassen, um mehr Spalten zu löschen?
Ja, du kannst einfach weitere Bedingungen im If-Statement hinzufügen, um zusätzliche Spaltennamen zu berücksichtigen.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010, 2013, 2016 und 2019.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige