Option Explicit
 
Private Sub Form_Load()
On Error Resume Next
   frmMain.mnuCSGesamt.Enabled = False
    Me.Width = frmMain.ScaleWidth / 2
    Me.Height = frmMain.ScaleHeight
    GridListe.Width = Me.Width - 100
    GridListe.Height = Me.ScaleHeight
    frmMain.Refresh_Forms (Me.Name)
    With GridListe
      ' autom. Neuzeichnen ausschalten
      .LockUpdate True
 
      ' Recordset-Kopie erstellen
      .CreateClone = True
 
      ' Zusätzliche Spalten-Eigenschaften festlegen
      .Columns(1).HeadAlign = ALIGN_CENTER
      .Columns(2).HeadAlign = ALIGN_CENTER
      .Columns(3).HeadAlign = ALIGN_CENTER
      .Columns(4).HeadAlign = ALIGN_CENTER
      .Columns(5).HeadAlign = ALIGN_CENTER
      .Columns(6).HeadAlign = ALIGN_CENTER
      .Columns(7).HeadAlign = ALIGN_CENTER
      .Columns(8).HeadAlign = ALIGN_CENTER
 
      .Columns(1).ColType = ALIGN_LEFT
      .Columns(2).ColType = ALIGN_LEFT
      .Columns(3).ColType = ALIGN_LEFT
      .Columns(4).ColType = ALIGN_LEFT
      .Columns(5).ColType = ALIGN_LEFT
      .Columns(6).ColType = ALIGN_LEFT
      .Columns(7).ColType = ALIGN_LEFT
      .Columns(8).ColType = ALIGN_LEFT
 
      ' interaktives Ändern der Spaltenbreiten zulassen
       .AllowColumnSizing = True
      ' autom. Neuzeichnen einschalten
      .LockUpdate False
      .AutoSort = True
      .DoSort "Status"
    End With
 
End Sub
 
Public Sub refresh_Liste()
    With KSrsCSListeGesamt
         .CursorLocation = adUseClient
         .Open KSSQLCSListeGesamt, DB, adOpenStatic, adLockOptimistic
    End With
   If Not (KSrsCSListeGesamt.BOF And KSrsCSListeGesamt.EOF) Then
      With GridListe
          Set .Recordset = KSrsCSListeGesamt
          .ReSort
          .Refresh
      End With
   End If
    KSrsCSListeGesamt.Close
    MsgBox " Es sind keine CS Agenten eingeloggt ", vbInformation
 
    GridListe_AutoSpalten Me, GridListe, False
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
   frmMain.mnuCSGesamt.Enabled = True
End Sub
 
Private Sub GridListe_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid.ListItem)
   If GridListe.Recordset.Fields("Skill2").Value <> 0 And _
      GridListe.Recordset.Fields("Skill2").Value = GridListe.Recordset.Fields( _
      "Skill").Value Then
      Item.ForeColor = vbRed
   Else
      Item.ForeColor = vbBlack
   End If
 
   With Item
      Select Case GridListe.Recordset.Fields("Status").Value
      Case "AVAIL": .BackColor = AVAILFARBE
      Case "ACD": .BackColor = ACDFARBE
      Case "ACW": .BackColor = ACWFARBE
      Case "AUX": .BackColor = AUXFARBE
      Case "OTHER": .BackColor = OTHERFARBE
      Case Else: .BackColor = LEERFARBE
      End Select
   End With
End Sub

Vielen Dank an alle !
Gru?
Thomas