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

bereich mit shape verschieben

Forumthread: bereich mit shape verschieben

bereich mit shape verschieben
15.06.2006 14:23:54
Emil
Hallo,
ich möchte den Bereich b4:c5 um drei Zellen nach rechts verschieben und habe folgendes ausprobiert.
Range("b4:c5").Copy Destination:=Range("b4").Offset(, 3)
Range("b4:c5").Clear
In dem Bereich befinden sich sowohl Zahlen als auch ein shape. Das shape wird zwar mit kopiert, aber dann nicht an der ursprünglichen Stelle gelöscht. Wie geht das, ohne das ich den Namen des shapes kenne?
Gruß Emil
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bereich mit shape verschieben
15.06.2006 22:36:30
Josef Ehrensberger
Hallo Emil!

Range("b4:c5").Cut Range("b4").Offset(, 3)

Gruß Sepp


AW: bereich mit shape verschieben
15.06.2006 22:42:55
Detlef
Hi,
das funktioniert so nicht!
mfg Detlef
Probiert? o.T.
15.06.2006 22:48:55
Josef Ehrensberger
Gruß Sepp
Anzeige
Klar, das Bild wird nicht berücksichtigt. oT
15.06.2006 22:51:40
Detlef
o
AW: Klar, das Bild wird nicht berücksichtigt. oT
15.06.2006 22:55:17
Josef Ehrensberger
Hallo Detlef!
Bei mir wird der Bereich mit Shape ausgeschnitten und eingefügt!
Gruß Sepp
AW: bereich mit shape verschieben
15.06.2006 22:56:56
Herbert H.
hallo Emil,
ev.so:


Sub x()
Dim shp As Shape
With Range("b4:c5")
    .Copy Cells(4, 5)
    .Clear
End With
For Each shp In ActiveSheet.Shapes
    If Not Intersect(shp.TopLeftCell, [b4:c5]) Is Nothing Then shp.Delete
Next
End Sub

     gruß Herbert
Anzeige
AW: bereich mit shape verschieben
16.06.2006 07:04:35
Emil
Hallo zusammen,
vielen Dank für eure Antworten. Bei mir funktionieren beide Lösungen.
Gruß Emil
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige