' Soll angezeigt werden ?!
Function WertEdit(ByVal Dst As String, ByVal blnVisible As Boolean) As Boolean
' Beim Start soll keine Änderungen der Spalten erfolgen!
 If bol_gestartet = False Then Exit Function
    For X = 1 To colAnwender.Count
        Dim getAnwender As cAnwender
        Set getAnwender = colAnwender(X)
        '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        If getAnwender.Standort = Dst Then
            getAnwender.colShow = blnVisible
        End If
        '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    Next X
End Function
...
MSFlex neu 
...