Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Prüfen ob Schaltfläche vorhanden | Herbers Excel-Forum


Betrifft: Prüfen ob Schaltfläche vorhanden von: walli
Geschrieben am: 25.12.2009 15:44:25

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

  

Betrifft: AW: Prüfen ob Schaltfläche vorhanden von: Nepumuk
Geschrieben am: 25.12.2009 15:52:15

Hallo walli,

an Stelle der Name-Eigenschaft benutzt du in dem Fall die AlternativeText-Eigenschaft.

Gruß
Nepumukl


  

Betrifft: AW: Prüfen ob Schaltfläche vorhanden von: walli
Geschrieben am: 25.12.2009 16:13:36

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


  

Betrifft: AW: Prüfen ob Schaltfläche vorhanden von: Gerd L
Geschrieben am: 25.12.2009 16:20:08

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


  

Betrifft: Habe Makro gestartet leider von: walli
Geschrieben am: 25.12.2009 16:27:03

Hallo Gerd,
habe das so eingesetzt, Makro gestartet, keine Fehlermeldung und
auch so sehe ich nicht.

mfg walli


  

Betrifft: AW: Prüfen ob Schaltfläche vorhanden von: ransi
Geschrieben am: 25.12.2009 16:23:37

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


  

Betrifft: So geht es DANKE --)) von: walli
Geschrieben am: 25.12.2009 16:31:43

Hallo Ransi,
so funktioniert es,
DANKE !
Noch ein schönes Fest an ALLE !!!

mfg walli


Beiträge aus den Excel-Beispielen zum Thema "Prüfen ob Schaltfläche vorhanden"