Office: (Office 2013) Prüfen ob ein Object (Grafik) existiert

Accesbeginner · 11. Oktober 2015

Hallo alle

Ich habe in eine Tabellenblatt 3 Textfelder Gruppiert und als "FUSSZEILE" benannt.

Nun möchte ich per VBA in dieser Tabellenblatt prüfen lassen ob diese Object oder Grafik überhaupt existiert, damit ich es bei bedarf Löschen kann.

Denn, wenn diese Object/Grafik nicht existiert, dann bekomme ich immer wieder ein Fehler.

Mit "On Error Goto irgenwo" klappt es auch nicht.

Code:

If FussZeileLoschen = "X" Then
On Error GoTo ExistiertNicht
ActiveSheet.Shapes.Range(Array("FUSSZEILE")).Select
Selection.Delete
End If
ExistiertNicht:
.
.
.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich brauche nur den Code wie ich Prüfen kann ob ein Object/Grafik namens "FUSSZEILE" existiert oder nicht.

Danke im Voraus.
Gruss
Bigdaddy

:)

Accesbeginner · 13. Oktober 2015

Hallo nochmal.

Problem selbst gelöst. *top

Code:

Sub myShapes()
Dim ashp As Shape
For Each ashp In ActiveSheet.Shapes
Debug.Print ashp.Name
If ashp.Name = "FUSSZEILE" Then
ActiveSheet.Shapes.Range(Array("FUSSZEILE")).Select
Selection.Delete
MsgBox "FUSSZEILE Existiert und wurde gelöscht!"
Exit Sub
End If
Next ashp
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Liebe Grüsse an Alle
Bigdaddy

xlph · 13. Oktober 2015

...oder so:

Code:

Public Sub Test()
Dim strShapeName As String

strShapeName = "FUSSZEILE"

If ShapeExists(ActiveSheet, strShapeName) Then
ActiveSheet.Shapes(strShapeName).Delete
End If

End Sub

Public Function ShapeExists(ByRef wksWorksheet As Worksheet, ByVal strShapeName As String) As Boolean
On Error Resume Next
ShapeExists = Not wksWorksheet.Shapes(strShapeName) Is Nothing
On Error GoTo 0
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Accesbeginner · 14. Oktober 2015

Danke xlph,

dein Code scheint irgendwie besser zu sein.

Ich werde es ausprobieren, denn in meinem Code gefaellt mir die "For Each" Schleife nicht.

Herzlichen Dank.
Accesbeginner

Office: (Office 2013) Prüfen ob ein Object (Grafik) existiert

Prüfen ob ein Object (Grafik) existiert

Prüfen ob ein Object (Grafik) existiert

Prüfen ob ein Object (Grafik) existiert

Prüfen ob ein Object (Grafik) existiert - Similar Threads - Prüfen Object Grafik

Formeltext auf Bezüge/Ausdrücke prüfen

Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

mit String aus Formular Übereinstimmung in Abfrage prüfen

Wartungstermine prüfen und ausgeben

zwei Zellen prüfen steht was drinnen dann schreib text

Mehrere Auswertungen zum prüfen von Nichtnormal- und Normalverteilung