Label-Schleife in XP
16.08.2004 18:59:44
HerbertH
könnnte mir jemand einen Tip geben, warum diese "Label-Schleife " unter
XP nicht läuft...
Sub Lab_ausbl()
Dim userfrm As UserForm
Set userfrm = Userf_konz
Dim Lb As Control, i As Byte
i = 1
For Each Lb In userfrm.Controls
If TypeName(Lb) = "Label" Then
If Lb.Caption = "" Then
Lb.Visible = False
i = i + 1
End If
End If
Next
End Sub
Danke
Gruß Herbert
Anzeige