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

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

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!
AW: Zellen verschieben
18.01.2006 10:11:00
Dominik
Super, vielen Dank!
Toll dass einem hier so schnell geholfen wird! :)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige