Datum

Titel

23.04.2024 08:59:38

Bedingte Formatierung

23.04.2024 08:56:21

Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer

23.04.2024 08:26:15

Rückgabewert mehrere Suchkriterien Datumsbereich

23.04.2024 08:20:37

VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1560to1564

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Prüfen ob CommandButton vorhanden ist

Forumthread: Prüfen ob CommandButton vorhanden ist
7 Beiträge zu diesem Forumthread
Anzeige
311 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

07.06.2017 11:46:05

philipp

Guten Tag zusammen,
ich würde gern prüfen ob ein CommandButton vorhanden ist,
leider nicht soviel Ahnung.
mfg
philipp b

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Prüfen ob CommandButton vorhanden ist

07.06.2017 11:52:26

Max2
Makro läuft...

07.06.2017 12:15:08

philipp
AW: Makro läuft...

07.06.2017 12:22:56

Rudi
Korrektur

07.06.2017 12:24:23

Rudi
Rudi das 1. Beispiel funktioniert aber..

07.06.2017 13:37:54

philipp
AW: Rudi das 1. Beispiel funktioniert aber..

07.06.2017 14:03:08

dirk
Alles klappt DANKE an Alle ! -)

07.06.2017 14:39:51

philipp

AW: Prüfen ob CommandButton vorhanden ist

07.06.2017 11:52:26

Max2

Hallo,
so:

Dim ctl As Control
Dim sh As Shape
'In UserForm
For Each ctl In UserForm1.Controls
If ctl.Name = "Name der ComboBox" Then
..code
Exit For
End If
Next ctl
'Auf Worksheet
For Each sh In ActiveSheet.Shapes
If sh.Name = "Name der ComboBox" Then
..code
Exit For
End If
Next sh

Makro läuft...

07.06.2017 12:15:08

philipp

Hallo Max,
danke für die schnelle Hilfe.
Habe so eingesetzt:
For Each sh In ActiveSheet.Shapes
If sh.Name = "CommandButton2" Then
MsgBox "vorhanden"
Exit For
Else
MsgBox "nicht da"
End If
Next sh
Makro läuft immer weiter, mußte mit ESC abbrechen.
Ich möchte dies nur für die active Sheet .
mfg
philipp b

AW: Makro läuft...

07.06.2017 12:22:56

Rudi

Hallo,

Sub aaa()
Dim sh As Shape, bol As Boolean
For Each sh In ActiveSheet.Shapes
If sh.Name = "CommandButton2" Then bol = True
Next
If bol Then
MsgBox "vorhanden"
Else
MsgBox "nicht da"
End If
End Sub

Gruß
Rudi

Korrektur

07.06.2017 12:24:23

Rudi


Sub aaa()
Dim sh As Shape, bol As Boolean
For Each sh In ActiveSheet.Shapes
If sh.Name = "CommandButton2" Then
bol = True
Exit For
Next
If bol Then
MsgBox "vorhanden"
Else
MsgBox "nicht da"
End If
End Sub

Rudi das 1. Beispiel funktioniert aber..

07.06.2017 13:37:54

philipp

Hallo Rudi,
das 1. Beispiel einwandfrei bei der Korrektor bleibt bei
Next stehen. Meldung: ohne Next ohne For
mfg
philipp b

AW: Rudi das 1. Beispiel funktioniert aber..

07.06.2017 14:03:08

dirk

Hallo!

Sub aaa()
Dim sh As Shape, bol As Boolean
For Each sh In ActiveSheet.Shapes
If sh.Name = "CommandButton2" Then
bol = True
Exit For
end if
Next
If bol Then
MsgBox "vorhanden"
Else
MsgBox "nicht da"
End If
End Sub

Gruss
Dirk aus Dubai

Alles klappt DANKE an Alle ! -)

07.06.2017 14:39:51

philipp