Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Shapes setzen und entfernen

Shapes setzen und entfernen
01.02.2006 10:09:55
Korl
Hallo,
meine Idee ist, das im activen Sheet am variablen Ende, ein Shapes gesetzt werden soll.
Das funktioniert auch. Dieses möchte ich dann aber auch wieder löschen können.
Und das funktioniert nicht.
Im Moment bin ich mit einer Tastenkombination um die Makros ausführen zu können,
am testen.
Mein Ziel soll aber sein, vor dem ausdrucken des activen Sheets jeweils das Shapes zu setzen und danach wieder zu löschen.
Hier mal mein Code:
Option Explicit
Sub Erläuterung()
'Erläuterung zum Einzelort setzen
Dim wksE As Worksheet, wksA As Worksheet
Dim lLetzteA As Long
Set wksE = Worksheets("Erläuterung")  'hier liegt das Shapes
Set wksA = ActiveSheet
lLetzteA = IIf(wksA.Range("A65536") <> "", 65536, wksA.Range("A65536").End(xlUp).Row)
Application.ScreenUpdating = False
    wksE.Shapes("Picture 1").Copy
    ActiveSheet.Range("A" & lLetzteA + 3).Select
    ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub
Sub Erläuterung_entfernen()
ActiveSheet.Shapes("Picture 1").Delete  'xxxxxxxxxx lässt sich nicht entfernen xxxxxxxxx
End Sub
Kann mir hier bitte jemand helfen?
Gruß Korl

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shapes setzen und entfernen
01.02.2006 10:40:39
Korl
Hallo,
ich sollte doch vorher in die Recherche schauen ;-)
Entschuldigung! ! !
Hier der Code, den ich auf meine Bedürfnisse angepasst habe:
Sub Erläuterung_entfernen()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Name Like "Picture *" Then sh.Delete
Next sh
End Sub
Bei dieser Gelegenheit möchte ich mich mal ausdrücklich bei allen Anwortern bedanken für die entgegengebrachte Hilfe und Mühe.
Gruß Korl
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige