Das Archiv des Excel-Forums
Zellen mit Werten in Zeile nach Links verschieben
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
Excel-Beispiele zum Thema " Zellen mit Werten in Zeile nach Links verschieben"