Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 4 Zellen nach rechts verschieben, wenn……

4 Zellen nach rechts verschieben, wenn……
17.10.2005 09:41:27
M.
Hallo,
Suche einen bestimmten Makrobefehl:
Wenn leere Zelle in Spalte „J“, dann die linken 4 Zellen (von der leeren Zelle ausgesehen) eine Zelle nach rechts verschieben.
Besten Dank im Voraus
Mit freundlichen Grüßen
Karsten
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: 4 Zellen nach rechts verschieben, wenn……
17.10.2005 10:42:58
WernerB.
Hallo Karsten,
wie gefällt Dir das?

Sub Karsten()
Dim c As Range, _
laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 10).End(xlUp).Row
For Each c In Range("J1:J" & laR)
If c.Value = "" Then
Range("K" & c.Row & ":N" & c.Row).Copy _
Destination:=Range("J" & c.Row)
Range("N" & c.Row).ClearContents
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: 4 Zellen nach rechts verschieben, wenn……
17.10.2005 11:03:17
M.
mußte noch etwas ändern, aber ist genau das, was ich brauche.
nochmal Danke
Karsten
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige