Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1124to1128
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
Inhaltsverzeichnis

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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
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
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
Anzeige
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
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

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige