Hallo,
ich habe in einer Tabelle ("Bilder") eine Sammlung von Logos.
Nun möchte ich in der gleichen Datei ein Logo aus der Sammlung kopieren und in ein anderes Blatt ("Fert") einfügen. Da dieses über mehrere Seiten geht und das Logo jeweils am Blattanfang stehen soll, muss ich es mehrmals kopieren und umbenennen, um es nachher ansprechen zu können.
Ich habe das irgendwie hinbekommen, aber irgendwie glaube ich viel zu umständlich. Gibt es da keine einfachere Lösung?
Achja, Wiederholungszeilen sind nicht möglich, das wäre natürlich die einfachste Lösung gewesen.
Vielen Dank für Eure Hilfe.
Gruß
Björn
Worksheets("Bilder").Shapes("Logo_A").Copy
With Worksheets("Fert")
.Select
.Unprotect
.Paste
.Shapes("Logo_A").Copy
.Paste
.Shapes("Logo_A").Name = "Logo_A1"
.Shapes("Logo_A").Copy
.Paste
.Shapes("Logo_A").Name = "Logo_A2"
.Shapes("Logo_A").Copy
.Paste
.Shapes("Logo_A").Name = "Logo_A3"
.Shapes("Logo_A").Copy
.Paste
.Shapes("Logo_A").Name = "Logo_A4"
.Shapes("Logo_A").Copy
.Paste
.Shapes("Logo_A").Name = "Logo_A5"
'Seite 1
With .Shapes("Logo_A")
.Top = 8
.Left = 45
End With
'Seite 2
With .Shapes("Logo_A1")
.Top = [A43].Top + 8
.Left = 45
End With
'Seite 3
With .Shapes("Logo_A2")
.Top = [A85].Top + 8
.Left = 45
End With
'Seite 4
With .Shapes("Logo_A3")
.Top = [A127].Top + 8
.Left = 45
End With
'Seite 5
With .Shapes("Logo_A4")
.Top = [A169].Top + 8
.Left = 45
End With
'Seite 6
With .Shapes("Logo_A5")
.Top = [A211].Top + 8
.Left = 45
End With
'Blattschutz und Markierung
.Protect
.Range("A1").Select
End With