Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen verschieben

Forumthread: Zellen verschieben

Zellen verschieben
18.01.2006 09:55:41
Dominik
Guten morgen zusammen!
Ich möchte die Zellen in Spalte E, die einen Text besitzen und nicht leer sind, in die selbe Zeile, aber in Spalte D verschieben.
Hat da jemand eine Lösung für mich parat?
Danke schonmal! Gruß, Dominik
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen verschieben
18.01.2006 10:05:17
u_
Hallo,

Sub E_nach_D_verschieben()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Range("E:E").SpecialCells(xlCellTypeConstants, xlTextValues)
rng.Cut rng.Offset(0, -1)
Next
Application.ScreenUpdating = True
End Sub

Gruß
Geist ist geil!
Anzeige
AW: Zellen verschieben
18.01.2006 10:11:00
Dominik
Super, vielen Dank!
Toll dass einem hier so schnell geholfen wird! :)
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige