Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

prüfen ob shape vorhanden

prüfen ob shape vorhanden
04.09.2006 10:34:38
atikar
Hallo Leute,
wie kann ich prüfen ob ein shape mit bekanntem namen vorhande ist?
ciao
atikar

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: prüfen ob shape vorhanden
04.09.2006 11:01:58
Heiko
Hallo atikar,
z.B. so:
Public

Function fcnShapeThere(strShapeName As String) As Boolean
' Prüft ob das angegebene Shape im aktiven Blatt vorhanden ist
Dim lngHelp As Long
On Error Resume Next
lngHelp = ActiveSheet.Shapes(strShapeName).Width
If Err.Number <> 0 Then
fcnShapeThere = False
Else
fcnShapeThere = True
End If
On Error GoTo 0
End Function


Sub test()
MsgBox fcnShapeThere("Rechteck 1")
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: prüfen ob shape vorhanden
04.09.2006 11:36:49
atikar
klappt super
danke heiko
Anzeige
AW: prüfen ob shape vorhanden
04.09.2006 11:39:40
Mag
Hi,
Ansatz:

Sub ttt()
Dim my As Shapes, i As Integer
Set my = Sheets("Tabelle1").Shapes
For i = 1 To my.Count
'MsgBox my.Range(i).Name
If my.Range(i).Name = "Rectangle 4" Then MsgBox "ja" Else MsgBox "nein"
Next i
End Sub

Gruss

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige