Case Funktion
27.01.2014 22:44:46
Ludmila
ich möchte in einer Userform den Zustand der Text und ComboBoxen prüfen.
Wenn die Farbe "Blau 16512196" ist dann darf nicht passieren.
Private Function Pruef_MA_Adr()
With Usefform
For Each OBJ In .FRMMAAdr.Controls
Select Case TypeName(OBJ)
Case "Textbox", "ComboBox"
OBJ.BackColor = 16512196 'blau
MASteuerfertig = False
Else: Case "Textbox", "ComboBox"
OBJ.BackColor = 16777215 'weiss
MASteuerfertig = True
End Select
End With
End Function
Danke!
Gruß
Ludmila
Anzeige