Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

shapes kopieren und einfügen

shapes kopieren und einfügen
26.02.2017 13:44:49
Hermann
Sehr geehrte Excel-Gemeinde,
ich würde mich sehr über etwas Unterstützung freuen.
in meinem WBZ (Zieldatei) habe ich eine Gruppierung ("Group 342") die ich löschen und durch eine andere Gruppierung ("Kopfzeile") aus WBQ (Quelldatei) ersetzen möchte
Dies versuchte ich mit:
WBZ.Sheets(x).Shapes.Range(Array("Group 342")).Delete
WBQ.Worksheets("Angebot").Shapes("Kopfzeile").Copy WBZ.Sheets(x).Range("A1").Paste
Application.CutCopyMode = False
Hierbei funktioniert Zeile 1. Diese löscht die Guppierung
Zeile 2 funtioniert nicht
Bei Zeile 3 weis ich nicht ob ich die brauche
Ich würde mich sehr über Hilfe freuen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: shapes kopieren und einfügen
26.02.2017 14:07:48
Mullit
Hallo,
so: 
  Call WBQ.Worksheets("Angebot").Shapes("Group 1").Copy
With WBZ.Sheets(X)
Call .Shapes("Group 342").Delete
Call .Paste
End With

Gruß, Mullit
AW: shapes kopieren und einfügen
26.02.2017 14:22:30
Mullit
Hallo,
...uups, Du mußt natürlich Deine Bez. einfügen, und mit Zielangabe ist's noch besser: 
Call WBQ.Worksheets("Angebot").Shapes("Kopfzeile").Copy
With WBZ.Sheets(X)
      Call .Shapes("Group 342").Delete
      Call .Paste(Destination:=.Cells(1, 1))
End With

Gruß, Mullit
Anzeige
AW: shapes kopieren und einfügen
26.02.2017 15:11:50
Hermann
Hallo Multi,
vielen Dank für die Lösung. Funktioniert tadellos.
Ich habe daran mich 2 Stunden lang versucht.
Beim nächsten Mal frage ich eher.
Gruß Hermann
Und schönes Restwochenende
alles klar, prima...
26.02.2017 15:49:02
Mullit
...und ebenso noch schönes W.ende....
Gruß, Mullit
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10