Sub Timer_Timer()
 
 Me.MSFlexGrid.Redraw = False
oRs_Nachricht.Open "select * from nachrichten where [gesendet an Computername]" & _
  "= '" & GetComputerName & "'", oconn, adOpenStatic, adLockOptimistic
 
If Not oRs_Nachricht.EOF Then
'Breite des Grides anpassen
If oRs_Nachricht.RecordCount > 10 Then
Me.MSFlexGrid.Width = 7850
Else
Me.MSFlexGrid.Width = 7575
End If
End If
 
 
If Not oRs_Nachricht.EOF Then
'Info ausgeben wenn Nachrichten vorliegen
If CStr(Me.Label_NachrichtenAnzahl.Caption) <> CStr( _
  oRs_Nachricht.RecordCount) Then
    'Prüfen ob Einblenden.Exe vorhanden ist
    If FileExists(App.Path & "\Einblenden.Exe") = True Then
        Shell App.Path & "\Einblenden.exe " & oRs_Nachricht.RecordCount, _
          vbNormalNoFocus
    End If
End If
 
 
Me.Label_NachrichtenAnzahl.Caption = oRs_Nachricht.RecordCount
 
Me.MSFlexGrid.Rows = 1
 
While Not oRs_Nachricht.EOF
Me.MSFlexGrid.AddItem vbTab & oRs_Nachricht("Ticketart") & vbTab & _
  oRs_Nachricht("Betreff") & vbTab & oRs_Nachricht("gesendet am") & vbTab & _
  oRs_Nachricht("Rückinfo als") & vbTab & oRs_Nachricht("nachrichtnr") & vbTab _
  & oRs_Nachricht("Absender Anrede") & " " & oRs_Nachricht("Absender Name")
'Prüfen ob Priorität gesetzt wurde
If oRs_Nachricht("priorität") = "1" Then
 
Me.MSFlexGrid.Col = 0
Me.MSFlexGrid.Row = oRs_Nachricht.AbsolutePosition
 Me.MSFlexGrid.CellFontBold = True
 
 Me.MSFlexGrid.CellFontSize = 11
 Me.MSFlexGrid.CellFontName = "Impact"
 Me.MSFlexGrid.CellAlignment = 4
 Me.MSFlexGrid.Text = "!"
 End If
 
 
oRs_Nachricht.MoveNext
Wend
Else
Me.MSFlexGrid.Rows = 1
FlexLastSelectedRow_Form_Nachrichten = 0
Me.Label_NachrichtenAnzahl.Caption = ""
End If
oRs_Nachricht.Close
'Flexgrid nach der 2. Spalte(Zeit) sortieren
Me.MSFlexGrid.Col = 3
Me.MSFlexGrid.Sort = 1
 
'Me.MSFlexGrid.Redraw = True
 
  'zuletzt makierte Zeile im Grid wieder makieren
If FlexLastSelectedRow_Form_Nachrichten = 0 Then
    'wenn keine Zeile aktiviert ist
   Me.MSFlexGrid.Redraw = True
 
    Exit Sub
Else
 
    With Me.MSFlexGrid
        '.Redraw = False
       If .Rows - 1 < FlexLastSelectedRow_Form_Nachrichten Then
       FlexLastSelectedRow_Form_Nachrichten = .Rows - 1
       End If
       .Row = FlexLastSelectedRow_Form_Nachrichten
        .Col = .FixedCols
        .ColSel = .Cols - 1
        .CellBackColor = .BackColorSel
        .CellForeColor = .ForeColorSel
        '.Redraw = True
    End With
 
End If
 
Me.MSFlexGrid.Redraw = True
 
End Sub