Sub Timer_Timer()
 
 Me.MSFlexGrid.Redraw = False
oRs_Nachricht.Open "select * from nachrichten where [gesendet an Computername]" & _
  "= '" & GetComputerName & "' order by  [gesendet am]", 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
 
    '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
 
  '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