Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Spalten ab Spalte D löschen - VBA

Forumthread: Bestimmte Spalten ab Spalte D löschen - VBA

Bestimmte Spalten ab Spalte D löschen - VBA
10.02.2019 14:10:47
Fritz
Hallo Forumsbesucher,
ich benötige erneut eure Hilfe wie folgt:
In der Tabelle2 sollen alle Spalten (beginnend allerdings erst mit Spalte D) gelöscht werden, in denen in der Zeile 21 weder die Zahl 1 noch das Formelergebnis "" steht bzw. die leer sind.
Das Makro soll auch aus anderen Tabellenblättern gestartet werden können.
Für eure Unterstützung im Voraus besten Dank.
mfg
Fritz
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Spalten ab Spalte D löschen - VBA
10.02.2019 15:23:55
Hajo_Zi
Hallo Fritz,
sehe ich es Richtig, wenn eine dieser Bedingungen zutrifft
Falls A21=1 oder Leer
Falls B21=1 oder Leer
Falls C21=1 oder Leer
Falls D21=1 oder Leer
sol D:XFD nicht gelöscht werden?

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
..wen interessiert das, was Du liest und nicht ?
10.02.2019 15:28:57
robert
wenn interessiert, was robert schreibt?
10.02.2019 15:31:29
Daniel
eigentlich nie was interessantes
wenn? oder wen ? naja, eben ein Daniel....
10.02.2019 16:14:53
robert
Anzeige
Aha, ewige Wiederholungen immer gleicher ...
12.02.2019 20:57:04
Luc:-?
…Tatbestände sind also interessanter, abgesehen mal von diversen, oft sinnfreien Attacken?
Ich würde wohl eher vermuten, dass du eindeutig sehr viel mehr Zeit zV hast als robert und andere, die außerdem entweder noch ver­ant­wortungsvoll einer Arbeit oder gar ehrenamtlicher Tätigkeit nachgehen.
Mit Hajo hast du dich wohl nur deshalb noch nicht angelegt, weil der höchstens mit einer Ergänzung seiner in Wirklichkeit viel umfang­rei­cheren und abgestuften Ignorierliste reagieren würde (nicht antworten, nicht lesen und beides)…
Luc :-?
Anzeige
AW: Bestimmte Spalten ab Spalte D löschen - VBA
10.02.2019 15:34:38
Daniel
Hi
probiers mal so:
dim s as long
with Sheets("Tabelle2")
for s = .cells.SpeicalCells(xlcelltypelastcell).Column to 4 step - 1
Select Case .Cells(21, s).Value
Case "", 1
Case else: .Columns(s).Delete
end Select
next
end with
Gruß Daniel
AW: Bestimmte Spalten ab Spalte D löschen - VBA
10.02.2019 15:49:25
Fritz
Hallo Daniel,
vielen Dank, werde es gleich testen und dann Rückmeldung geben.
mfg
Fritz
P.S. Wollte gerade auf die Fragen einzelner antworten und will deshalb - unabhängig von Daniels Vorschlag - mein Anliegen noch mal wie folgt konkretisieren:
Es sollen alle Spalten im Tabellenblatt Tabelle2 ab der Spalte D alle
die in Zeile 21 nicht leeren Spalten gelöscht werden, mit Ausnahme
derjenigen Spalten in denen in Zeile 21 eine 1 oder als Formelergebnis
"" steht.
Anzeige
AW: Bestimmte Spalten ab Spalte D löschen - VBA
10.02.2019 16:08:14
Fritz
Hallo Daniel,
mein Test erbrachte folgende Fehlermeldung:
Laufzeitfehler 438:
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Gelb markiert wurde die Zeile im Code, die mit "For s " beginnt.
Gruß
Fritz
AW: Bestimmte Spalten ab Spalte D löschen - VBA
10.02.2019 16:13:42
Werner
Hallo,
Schreibfehler noch 
SpeicalCells

Sondern 
SpecialCells
Gruß Werner
Anzeige
AW: Bestimmte Spalten ab Spalte D löschen - VBA
10.02.2019 16:22:00
Fritz
Hallo Werner,
genau das war es, Dir erneut vielen Dank.
Dank nochmals auch an Daniel, jetzt funktioniert es wie gewünscht.
Für uns Hilfesuchende einfach großartig, dieses Forum mit diesen kompetenten Helfern.
mfg
Fritz
Gerne u. Danke für die Rückmeldung. o.w.T.
10.02.2019 19:49:30
Werner
;

Forumthreads zu verwandten Themen

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
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
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
VBA Spalten löschen und Namen kopieren
Tom

Hallo,
ich könnte dringend Hilfe gebrauchen. Ich brauch ein Makro was immer die Zelle 1-6 Löscht und das immer wiederholend also als Schleife. Als nächstes eine Spalte einfügt und vor Insgesamt die Zahl und den Namen in Zeile 7 Spalte A einfügt und die ganzen Zeilen über insgesamt löscht ic...
06.07.2017 06:50:28
Thread-ID: 1567634
3 Beiträge
VBA letzte Spalte löschen mit Stopp
Chris

Hallöchen,
bisher war ich nur stiller Mitleser und hab hier schon viel gelernt. Vielen Dank dafür erstmal. Ich habe begonnen mich an VBA ranzutasten und bin da noch im "Krabbelmodus".
Ich möchte ein Steuerelement belegen mit der Funktion in einem anderen Arbeitsblatt eine komplette Sp...
17.04.2020 14:50:13
Thread-ID: 1753175
6 Beiträge
VBA Button letzte Tabellenspalte löschen
Thorsten

Hallo ich bräuchte Hilfe. Ich will einen VBA Button, der mir bei Knopfdruck die letzte _
beschrieben Zeile löscht. Private Sub CommandButton2_Click() Dim loLetzte As Long With Sheets("Arbeitsmittel") loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile in Spalte A, Spalte anpasse...
15.01.2021 23:56:11
Thread-ID: 1806092
16 Beiträge
Anzeige
VBA - Spalte löschen vor dem Speichern
Lars
Hallo zusammen,
ich bin neu hier... und wie man sich vorstellen kann auf der Suche nach einer Lösung! :-)
Ich bin kein VBA-Experte und erweitere im Moment ein bestehendes VBA Projekt.
So nun zu meinem "Problem":
- Das bestehende Projekt macht aus einem Tabellenblatt mehrere neue Tab...
30.08.2021 14:02:32
Thread-ID: 1845543
8 Beiträge
VBA Spalten vergleichen, gleiche löschen
Ralf
Hallo zusammen
Leider kriege ich das Problem nicht in den Griff:
Anforderung: Spalte N & P sollen verglichen werden, die Einträge welche identisch sind sollen aber gelöscht werden.
Am Schluss sollten nur der Eintrag in Spalte N stehen bleiben welcher nicht identisch ist.
Ich habe...
11.11.2022 16:08:52
Thread-ID: 1906756
4 Beiträge
VBA - Spalten löschen
Christian
Hallo,

ich bin ziemlicher VBA Anfänger und versuche mich gerade an einem Makro, welches den Inhalt aller Spalten untereinander auflistet und die dann überflüssigen Spalten löscht. Die Auflistung klappt, aber das löschen nicht, da gibt's einen Fehler 400. Was mache ich falsch?

Ich...
28.03.2023 10:36:59
Thread-ID: 1925858
5 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

Bestimmte Spalten ab Spalte D löschen mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und navigiere zu dem Arbeitsblatt, in dem du die Spalten ab D löschen möchtest (in diesem Fall "Tabelle2").

  2. Drücke ALT + F11 um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Rechtsklicke im Projektfenster auf "VBAProject (deine_datei.xlsm)".
    • Wähle Einfügen > Modul.

  4. Kopiere und füge den folgenden Code in das Modul ein:

    Dim s As Long
With Sheets("Tabelle2")
   For s = .Cells.SpecialCells(xlCellTypeLastCell).Column To 4 Step -1
       Select Case .Cells(21, s).Value
           Case "", 1
           Case Else: .Columns(s).Delete
       End Select
   Next
End With

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

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle das Makro aus und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Laufzeitfehler 438: Dieser Fehler tritt auf, wenn eine Methode oder Eigenschaft nicht unterstützt wird. Überprüfe, ob du SpecialCells richtig geschrieben hast. Es sollte so aussehen:

    .Cells.SpecialCells(xlCellTypeLastCell)

  • Falsches Arbeitsblatt: Stelle sicher, dass das Arbeitsblatt "Tabelle2" exakt so benannt ist. Überprüfe die Schreibweise.

Alternative Methoden

Wenn du keine VBA-Lösung verwenden möchtest, kannst du auch eine SQL-Abfrage in einer Excel-Datenbank verwenden, um leere Spalten zu leeren oder zu löschen. Dies erfordert jedoch Kenntnisse in SQL und möglicherweise die Verwendung von Power Query.

Praktische Beispiele

  1. Beispiel 1: Du möchtest alle Spalten ab D in "Tabelle3" löschen:

    • Ändere im Code With Sheets("Tabelle2") zu With Sheets("Tabelle3").

  2. Beispiel 2: Wenn du die Spalten ab D auf Basis anderer Bedingungen löschen möchtest, passe die Select Case-Bedingungen nach Bedarf an.

Tipps für Profis

  • Backup erstellen: Bevor du das Makro ausführst, erstelle ein Backup deiner Excel-Datei, um Datenverlust zu vermeiden.
  • Testumgebung: Teste den Code in einer Kopie deiner Datei, um sicherzustellen, dass alles wie gewünscht funktioniert.
  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um das Makro robuster zu machen.

FAQ: Häufige Fragen

1. Was passiert mit Daten in gelöschten Spalten?
Alle Daten in den gelöschten Spalten gehen verloren. Stelle sicher, dass du ein Backup hast.

2. Kann ich das Makro anpassen, um auch andere Bedingungen zu überprüfen?
Ja, du kannst die Bedingungen im Select Case-Block nach deinen Bedürfnissen anpassen.

3. Funktioniert dieser Code in Excel für Mac?
Ja, VBA funktioniert auch in Excel für Mac, allerdings kann die Tastenkombination für den VBA-Editor abweichen.

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