Userform: Visible trotz Status Visible = False
22.08.2019 11:28:46
KaEmGe
ich habe eine UF auf der leere Label ausgeblendet werden sollen.
Frage ich den Status des Labels ab, ist "Visible = False", allerdings werden die Label trotzdem weiter angezeigt. Im Einzelschritt funktioniert das ausblenden jedoch. Weiss jemand Rat?!
Ausschnitt Code
''Label-Formatierung in "Benennung" & "Geprüft"
If boolEmptyList = False Then
For Each ctrl In frminfo.fre_Named.Controls
i = Replace(ctrl.Name, "lblNamed", "")
Select Case ctrl.Caption
Case Is = ""
ctrl.BorderStyle = 0
ctrl.BackColor = vbButtonFace
ctrl.ForeColor = vbBlack
ctrl.Visible = False
frminfo.fre_Checked("lblchecked" & i).Visible = False
Case Is = strNameCap
ctrl.SpecialEffect = 2
ctrl.Font.Bold = True
ctrl.Font.SIZE = 10
ctrl.BackColor = &H80000003
ctrl.ForeColor = vbBlack
ctrl.Visible = True
frminfo.fre_Checked("lblchecked" & i).Visible = True
Case Is ""
ctrl.ForeColor = vbBlack
ctrl.BorderStyle = 1
ctrl.SpecialEffect = 0
ctrl.Visible = True
frminfo.fre_Checked("lblchecked" & i).Visible = True
End Select
If InStr(1, ctrl.Caption, "(Verrohrt)") = 1 Or InStr(1, ctrl.Caption, "(Gelöscht)") = 1 _
Then
ctrl.Object.ForeColor = &H80000006
End If
Next ctrl
Else
For Each ctrl In frminfo.fre_Checked.Controls
ctrl.Visible = False
Next ctrl
For Each ctrl In frminfo.fre_Named.Controls
ctrl.Visible = False
Next ctrl
End If