Hallo zusammen,
ich habe ein Problem, welches mir schlaflose Nächte bereitet:
Und zwar habe ich ein Programm geschrieben, das ein Vorlagentabellenblatt kopiert und mit Werten aus einer Übersichtstabelle befüllt, sobald eine Checkbox auf der Übersichtstabelle angeklickt wird. Das Problem ist, dass bei kopieren des Vorlagenblatts (welches u.a. Ellipsen enthält, die ich über die "Formenauswahl" gezeichnet habe) die Ellipsen mit fortlaufender Nummerierung bezeichnet werden: "Oval 3", "Oval 4" usw.
Hier mal ein Ausschnitt mit den Attributen einer Ellipse:
ActiveSheet.Shapes.Range(Array("Oval 4")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 40, 0)
.Transparency = 0
.Solid
End With
Kann mir jemand sagen, wie ich es schaffe das Vorlagetabellenblatt zu kopieren und auf dem neuen Tabellenblatt die Ellipsen gleich anzusteuern wie auf dem Vorlageblatt?
Vielen Dank schonmal für eure Hilfe!
Grüße Kali
|