Controls (Frame)
17.02.2014 12:28:48
Lisa
in einer UF habe ich mehrere Frames mit Text und Comboboxen.
Nun möchte ich ein Makro zum Prüfen erstellen.
Dim OBJ as Object
Dim FRMArt as String
Dim Zeahler as Byte
Sub Pruefen()
FRMArt = "Frame1" usw.
For Each OBJ In Userform1.Controls(FRMArt) '**Hier ist der Fehler
Select Case TypeName(OBJ)
Case "TextBox", "ComboBox"
If OBJ.BorderColor = 16711680 And OBJ = "" Then
Zaehler = Zaehler + 1
End If
End Select
Next OBJ
Code....
End Sub
Danke!
Gruß Lisa