Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.06.2025 22:11:12
24.06.2025 21:29:43
24.06.2025 19:48:50
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Prüfen ob Schaltfläche vorhanden

Prüfen ob Schaltfläche vorhanden
walli
Guten Tag,
ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Schaltfläche 10" Then
MsgBox "Button ist da"
Exit For
Else
MsgBox "nicht da "
End If
Next shShape
mfg walli
Anzeige
AW: Prüfen ob Schaltfläche vorhanden
25.12.2009 15:52:15
Nepumuk
Hallo walli,
an Stelle der Name-Eigenschaft benutzt du in dem Fall die AlternativeText-Eigenschaft.
Gruß
Nepumukl
AW: Prüfen ob Schaltfläche vorhanden
25.12.2009 16:13:36
walli
Hallo Nepumuk,
habe geändert:
Dim Shapes As Shape
For Each ActiveSheet.Shapes In Worksheets("Test").Shapes
' If shShape.Name = "Schaltfläche 10" Then
If ActiveSheet.Shapes = "Schaltfläche 10" Then
MsgBox "Button ist da"
Exit For
Else
MsgBox "nicht da "
End If
Next shShape
leider Fehlermeldung,
mfg walli
Anzeige
AW: Prüfen ob Schaltfläche vorhanden
25.12.2009 16:20:08
Gerd
Hallo Walli,
lasse dir zuerst mal die Namen im Direktfenster ausgeben.
Sub a()
Dim shShape As Shape
For Each shShape In ThisWorkbook.Worksheets("Test").Shapes
Debug.Print "|:"& shShape.Name
Next shShape
End Sub

Gruß Gerd
Habe Makro gestartet leider
25.12.2009 16:27:03
walli
Hallo Gerd,
habe das so eingesetzt, Makro gestartet, keine Fehlermeldung und
auch so sehe ich nicht.
mfg walli
Anzeige
AW: Prüfen ob Schaltfläche vorhanden
25.12.2009 16:23:37
ransi
HAllo Walli
Anstatt alle shapes zu durchlaufen, versuch mal sowas:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub aufruf()
MsgBox shape_Exists(Sheets("Tabelle1"), "Schaltfläche 1")
End Sub


' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function shape_Exists(Blatt As Object, shpName As String) As Boolean
Dim Bild As Shape
On Error Resume Next
Set Bild = Blatt.Shapes(shpName)
shape_Exists = Err = 0
Err.Clear
End Function


Die Function erwartet als Argumente das Tabellenblatt und den Namen des Shapes.
ransi
Anzeige
So geht es DANKE --))
25.12.2009 16:31:43
walli
Hallo Ransi,
so funktioniert es,
DANKE !
Noch ein schönes Fest an ALLE !!!
mfg walli

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige