Zellen mit Werten in Zeile nach Links verschieben

• Zellen mit Werten in Zeile nach Links verschieben von Lars vom 01.10.2003 14:54:40
  • AW: Zellen mit Werten in Zeile nach Links verschieben - von Marc am 01.10.2003 15:20:50

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

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

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