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

Gesamte Column löschen, wenn Column-Bereich leer

Forumthread: Gesamte Column löschen, wenn Column-Bereich leer

Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 14:06:20
Michael
Hallo,

Ich habe eine Excel-Tabelle, mit zwei Kopfzeilen, ab Zeile 3 - n kommen Datenzeilen. Ich muss alle Spalten (Column) aller Zeilen ab Zeile 3 durchgehen, und wenn alle Zellen einer bestimmten Column leer sind, diese Column komplett löschen bzw. entfernen.

Also Beispiel, bei folgender Tabelle: 

                    Header1

Column1           Column2        Column3       Column4

1

                        1

                        1

1                       1                       1


soll das rauskommen: 

                    Header1

Column1           Column2        Column4

1

                        1

                        1

1                       1          1


In dem Fall soll also Column 3 komplett gelöscht werden, da im Datenbereich (also ab Zeile 3 - n) nirgends ein Wert in dieser Spalte eingetragen ist. Kann mir da bitte jemand beim VBA-Code helfen? Ich bekomm das selbst mit Macrorecorder leider nicht hin, da ich noch nichtmal in der herkömmlichen Excel-Oberfläche wüsste, wie ich zu dem Ergebnis komme ... :-)

Danke für Eure Hilfe, Michael
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 14:32:51
{Boris}
Hi,

der kleines Beispiel-Code prüft in den ersten 4 Spalten, ob NUR der Header drin ist (und sonst alle Zellen leer sind). 

Sub Spalte_loeschen()

Dim x As Long

For x = 4 To 1 Step -1

    If WorksheetFunction.CountA(Columns(x)) = 1 Then

        Columns(x).Delete

    End If

Next x

End Sub


VG, Boris
Anzeige
;

Forumthreads zu verwandten Themen

Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
wenn a1 leer, dann ganze zeile löschen
Hajo
Hallo Andreasich vermute mal Du kennst Dich mit VBA aus und kannst eins der folgenden Makros Dir anpassen.129. löschen wenn Spalte A kein Datum enthält
folgender Vorschlag (die Spalte A wird auf Datumsinhalte überprüft):
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step –1
If Not IsDa...
16.04.2002 20:58:38
Thread-ID: 113877
5 Beiträge
Anzeige
Wenn übernomme Zelle leer - dann Ziel auch leer
Werner

Hallo,
ich habe eine hoffentlich einfache Frage:
Wenn ich in Zelle B10 schreibe =B6, so wird ja der Inhalt von B6 übernommen.
Wenn B6 aber leer ist, dann soll in B10 keine null erscheinen sondern diese soll auch leer bleiben.
Wie kann ich dies tun (außer über die Einstellungen v...
01.03.2010 11:58:44
Thread-ID: 1142333
3 Beiträge
Bereich prüfen ob Wert enthalten oder leer
chris

Hallo Excelprofis und guten morgen,
ich hätte eine frage.Vielleicht könnt ihr mir helfen.
ich möchte gerne einen bereich prüfen ob ein wert vorhanden ist.
Also z.b Bereich A1 bis G1
ich möchte jetzt einfach prüfen ob in einer dieser 7 Zellen prüfen ob ein wert vorhanden/eingetra...
04.03.2010 07:47:03
Thread-ID: 1143197
3 Beiträge
wenn minusbereich dann warnen
ottgunter

Hallo
Brauche wieder Fachwissen.
Ich habe in Tabelle1 im Zellenbereich bi4 bis bi23 Zahlen zustehen.
wenn eine Zelle in diesem Bereich unter null fällt, also im minusbereich rutscht, dann soll eine Warnung gegeben werden.
Gruß gunter
18.08.2010 18:18:34
Thread-ID: 1172952
5 Beiträge
Anzeige
Wenn alle TextBox leer dann Exit Sub
frank

Hallo
Bei wenigen TextBox prüfe ich den Inhalt so
If TextBox3.Text = "" And _
TextBox4.Text = "" And _
TextBox32.Text = "" And _
TextBox33.Text = "" Then
Exit Sub
Bei vielen TextBox wird es doch eine lange Liste.
Die Prüfung mit einer Schleife krieg ich nicht hin...
13.12.2010 17:49:31
Thread-ID: 1191269
6 Beiträge
Wenn Zelle leer dann rechte Zelle
Eva-Maria

Hallo ihr Spezialisten,
Ich habe da mal eine Frage.
Gibt es eine Formel für folgende Ausgangslage:
Wenn in Tabelle2 ein Datum von C3 bis P3 steht das mit Tabelle1 C4 überein stimmt dann soll in der Tabelle1 ZelleA7 eine Zahl erscheinen die in Tabelle2 C3 steht. Wenn P3 erreicht ist...
08.05.2011 23:34:16
Thread-ID: 1213567
6 Beiträge
wenn Zeile nicht leer Dann ausgeben
TobHan

Guten Tag,
ich habe nun meine Excel-Datenbank verfeinert und habe nun folgendes Problem.
Anlage:
https://www.herber.de/bbs/user/77768.xls
Ich gebe die Privatkm nur aus, wenn KM mehr als 0.
Auf dem Sheet "Privatkm" entstehen dann aber auch leerzeilen.
Ich will nun auf ei...
01.12.2011 12:59:18
Thread-ID: 1240234
3 Beiträge
Anzeige
Wenn Farbe im Zellbereich, Dann...
Matthias

Hallo @ All ,...
der Matze braucht mal wieder Hilfe.
Sind gleich 2 Bedingungen:
Wenn im Bereich A57:A74 Der Inhalt "XXX" erscheint, dann aus Zeile F54:AJ54 nur die 'grün = 5296274 Color herrauslesen und in den Füllbereich F57:AJ74 ein "F" übertragen, die anderen Farben ignorieren.<...
09.01.2012 17:01:19
Thread-ID: 1245338
6 Beiträge
Anzeige
Prüfen ob zellen in bestimmten Bereichen liegen
Christian

Hallo Zusammen,
ich möchte über die Doppelklick Eigenschaft der Arbeitsmappe folgendes erreichen: Bei Doppelklick auf Zelle in Bereich A1:A50 soll eine UserForm angezeigt werden, Bei Doppelklick auf eine Zelle im Bereich C1:C50 soll eine andere UserForm angezeigt werden. Mit einem Bereich h...
21.01.2012 22:29:15
Thread-ID: 1247385
6 Beiträge
Prüfen, ob auf Spaltenbereich Autofilter gesetzt i
Peter

Guten Tag
Ich habe in einer Tabelle einen Spaltenbereich, der mit spBereich benannt ist.
Wie kann ich am Anfang eines Codes (Code ist "hinter" dem Tabellenblatt platziert) überpüfen, ob auf spBereich der Autofilter gesetzt ist, und wenn nicht diesen setzen (nur auf dieser einen Spalte)?...
28.03.2012 14:15:39
Thread-ID: 1256803
3 Beiträge
VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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