Tabelle mit Kopfzeile: leere Spalten inkl. Kopfzeile eliminieren

[ibu]

Moin.

Ich habe eine sehr umfangreiche Tabelle (Export einer Kontaktsammlung) mit vielen Spalten, viele davon sind leer.

Da die Tabelle 900 Zeilen hat, lässt sich nicht mit einem Blick erkennen, welche Spalte leer ist.

Die leeren Spalten liegen auch nicht alle nebeneinander.

Die Tabelle möchte ich "normalisieren", muss also die leeren Spalten löschen.

Es gibt die Funktion "Menüband Start > Suchen und auswählen > Inhalte > (x) Leere.

Diese Funktion nützt mir nix, da sie alle leeren Zellen markiert.

Die Herausforderung der Aufgabe liegt wohl darin, dass die Spalten, die ich löschen möchte eine Kopfzeile mit einem Label haben.

Beispieldatei hängt an.

Tabelle 1 zeigt den Ist-Zustand, Tabelle 2 den Soll-Zustand.

Wie kann man die Aufgabe elegant lösen? Danke für euren Rat.

  leere-spalten-loeschen.xlsx (Größe: 9,44 KB / Downloads: 10)

[shift-del]

Moin

Lösche Spalte B.
Lösche Spalte C.

[ibu]

Lösche Spalte B.
Lösche Spalte C.

Das war ein Minimal-Beispiel um zu demonstrieren, worum es geht.

Die richtige Tabelle ist sehr umfangreich. Manuelles Löschen ist keine Option, sonst hätte ich hier doch nie gefragt.

Denkst Du denn ernsthaft, ich könne keine 2 Spalten löschen? ; )

[echo]

hallo
ich würde eine Zeile einfügen und dort auf LEER prüfen:
zB. A1 zum kopieren nach rechts : =(ANZAHL2(A2:A1000)<>0)*SPALTE()

In den Optionen zum Sortieren kannst du "spalte sortieren" wählen entsprechend die leeren Spalten weg bekommen.

Gruß Holger

[rate mit]

Hallo,

bezugnehmend auf Echo's Vorschlag könnte man es so ausführen...

Denkst Du denn ernsthaft, ich könne keine 2 Spalten löschen? ; )

Du kennst das Sprichwort mit dem Wald und den Bäumen?

[DIZA]

Code:

Sub LeereSpaltenDel()
Dim dls As Long, dlz As Long, sp As Long, dsp As Long
    dlz = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    dls = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    dsp = 0
    For sp = 1 To dls
        If Cells(Rows.Count, sp).End(xlUp).Row < 2 Then
            Columns(sp).Delete
            sp = sp - 1
        Else
        End If
        dsp = dsp + 1
        If dsp = dls Then Exit Sub
    Next sp
End Sub

[ibu]

bezugnehmend auf Echo's Vorschlag könnte man es so ausführen...

Funktioniert perfekt. Ganz herzlichen Dank! Und natürlich auch an echo.
: )

---

Hallo Dirk,

vielen Dank für den Code.

Kann man auch bei MS365 für macOS solchen Code als Makro speichern und ausführen?

Gruß, Andreas

[HKindler]

Hi,

es gibt zwar einige Unterschiede zwischen Excel für Windows und Excel für MacOS (Dateizugriff, Userformen etc.), aber die excel-internen Dinge sind davon nicht betroffen.

[rate mit]

Wenn du MS Office 365 hast, dann kannst du auch die Funktion FILTER verwenden...

Code:

=WENN(FILTER(Tabelle1!$A$2:$E$20;Tabelle1!$A$1:$E$1=1;"")=0;"";FILTER(Tabelle1!$A$2:$E$20;Tabelle1!$A$1:$E$1=1;""))

[ibu]

Wenn du MS Office 365 hast, dann kannst du auch die Funktion FILTER verwenden...

Erst dachte ich, dass die vorgeschlagene Funktion FILTER alle Spalten, die nicht leer sind, auf Tabellenblatt 2 ausgeben kann.

Aber dagegen spricht die "0" und die "1", die Du im Ergebnis verwendest.

https://support.microsoft.com/de-de/offi...77ad80c759

Mir ist die Intention noch nicht ganz klar. Schreibst Du bitte nochmal kurz, was Du Dir vorstellst.