Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige