Zellen mit Werten in Zeile nach Links verschieben

Bild

Betrifft: Zellen mit Werten in Zeile nach Links verschieben
von: Lars
Geschrieben am: 01.10.2003 14:54:40

Hilfe, ich habe eine Tabelle, in der z.B. die Spalte A immer gefüllt ist.
Die restlichen Spalten sind mal leer mal gefüllt.

Ein Makro soll nun den Inhalt der Zeile (Zelle für Zelle) immer ganz nach links verschieben bis der Inhalt immer in den Spalten von A aufwärts steht.

Wie geht das ?

Vielen Dank Lars

Bild


Betrifft: AW: Zellen mit Werten in Zeile nach Links verschieben
von: Marc
Geschrieben am: 01.10.2003 15:20:50

Hallo Lars,

das hier mal als Ansatz:


Sub links_schieben()
Dim w
    For Each w In Range("A1:M20")
    If IsEmpty(w) Then w.Delete Shift:=xlToLeft
    Next w
End Sub


Du musst den Bereich noch anpassen und dieses Makro schiebt immer nur eine Zelle nach links, muss also ggfs öfter ausgeführt werden.
Aber in dem Stil könnte es gehen...

Grüsse,
Marc


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellen mit Werten in Zeile nach Links verschieben"