Herbers Excel/VBA-Archiv

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

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

• Prüfen ob Schaltfläche vorhanden von walli vom 25.12.2009 15:44:25
• AW: Prüfen ob Schaltfläche vorhanden - von Nepumuk am 25.12.2009 15:52:15
  • AW: Prüfen ob Schaltfläche vorhanden - von walli am 25.12.2009 16:13:36
    • AW: Prüfen ob Schaltfläche vorhanden - von Gerd L am 25.12.2009 16:20:08
      • Habe Makro gestartet leider - von walli am 25.12.2009 16:27:03
    • AW: Prüfen ob Schaltfläche vorhanden - von ransi am 25.12.2009 16:23:37
      • So geht es DANKE --)) - von walli am 25.12.2009 16:31:43

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"