Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1332to1336
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
Inhaltsverzeichnis

Formen Kopieren in andere Arbeitsmappe

Formen Kopieren in andere Arbeitsmappe
24.09.2013 12:51:36
Chipy
Hallöchen,
möchte aus einem Sheet "Vorlage" eine Form in ein beliebiges Sheet und Zelle Kopieren. Wenn ich _
das mit dem Makro Rekorder aufzeichne, wird das Makro immer nur in dem Sheet und der Zelle _ ausgeführt in welcher ich es beim aufzeichnen eingefügt habe. Ich habe versucht das zu ändern, gelingt mir aber nicht. Kann mir bitte jemand helfen (anbei das aufgezeichnete Makro)?

Sub Gemeinsamer_Start()
' Gemeinsamer_Start Makro
ActiveSheet.Shapes.Range(Array("Gemeinsamer Start")).Select
Selection.Copy
Sheets("15_").Select
Range("C6").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 37.5
Selection.ShapeRange.IncrementTop 25.312519685
Range("C6").Select
End Sub

Vielen Dank!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formen Kopieren in andere Arbeitsmappe
25.09.2013 18:24:09
fcs
Hallo Chippy,
mit folgenden Anpassungen wir ddie Form im aktiven Blatt in der aktiven Zelle eingefügt und ein wenig nach Unten und nach rechts verschoben.
Sub Gemeinsamer_Start()
' Gemeinsamer_Start Makro
Dim objShape As Shape, rngZelle As Range
Worksheets("Vorlage").Shapes("Gemeinsamer Start").Copy
Set rngZelle = ActiveCell
With ActiveSheet
.Paste
Set objShape = .Shapes(.Shapes.Count)
End With
With objShape
.Top = rngZelle.Top + 2
.Left = rngZelle.Left + 2
End With
End Sub

Gruß
Franz
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige