Leere Spalten löschen und nach links verschieben

[PeterN]

Hola los Todos!

Ich habe eine Liste mit mehreren tausend Zeilen.

Die Spalten sind an UNTERSCHIEDLICHEN Stellen befüllt oder leer.

Wie kann ich die leeren Spalten unabhängig von Ihrer Position so löschen, das danach alle Werte linksbündig stehen?

Ich habe mal eine Beispielliste angefügt.

In Tabelle1 ist die Originaldatei und in Tabelle2 so wie es danach aussehen sollte.

Danke und Gruss

Peter

[Kuwer]

Hallo Peter,

per Tastatur:
F5
Alt + i
r
Enter
Strg + -
l
Enter

Gruß Uwe

[marose67]

Hola,
Lege diesen Code hinter dein Tabellenblatt und starte ihn.. Das kannst Du mit Alt+F11 erreichen:

Sub Leere_Zellen_loeschen()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
End Sub

Gruß
Marcus

[PeterN]

Merci!!!

Wenn doch alles so einfach wäre.

NUR strg - OHNE + wäre genau meine Lösung gewesen.

Weil erst + will dann nach rechts verschieben, und ich wollte ja nach links.

Danke nochmal

Peter

[Kuwer]

NUR strg - OHNE + wäre genau meine Lösung gewesen.

mit + ist ja auch und gemeint, also die Tasten Strg und Minus gleichzeitig. Genauso wie bei Alt und i .

Gruß Uwe

[marose67]

Hallo Uwe ...

Wow ... :97: :97: :97:

Gruß
Marcus