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
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
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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen