Deklarierung
01.01.2016 11:18:24
Sigi
nachträglich noch einen guten Rutsch ins neue Jahr!
Meine Frage:
Ich habe mehrere Userformen der Aufbau ist immer der selbe.
Es sollen immer die Frame die nicht BorderColor 65535(gelb) sind ausgeblendet werden.
Jedoch funktioniert mein Code nicht.
Danke!
Gruß
Sigi
in Modul
Public UF as String
Public obj as Object
Private Sub Fra_Ausblenden()
With UF
For Each obj In .Controls
Select Case TypeName(obj)
Case "Frame"
If obj.BorderColor = 65535 Then: obj.Visible = True
If obj.BorderColor = 0 Then: obj.Visible = False
End Select
Next obj
End Sub
in UF
Private Sub UserForm_Initialize()
On Error Resume Next
UF = "UFKD"
With Application
.Run "Fra_Ausblenden" 'Alle Frame ausblenden nur Button-Frame offen lassen
End With
End Sub