Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
 
        With ToolTip4
            .IsBalloon = True
            .ToolTipIcon = ToolTipIcon.Info
            .ToolTipTitle = "Info"
            .ShowAlways = True
 
            ' den einzelnen Buttons unterschiedliche Info-Texte zuordnen
            .SetToolTip(Button360, "Hier besteht die Möglichkeit die angezeigte" & _
              "Liste zu erweitern.")
            .SetToolTip(PictureBox475, "Hier besteht die Möglichkeit die" & _
            "angezeigte Liste zu erweitern.")
            .SetToolTip(Button2, "Beenden der Liste.")
 
        End With
 
 
        ' Excel-Tabelle anzeigen
        Dim oDs As System.Data.DataSet
        Dim oConn As System.Data.OleDb.OleDbConnection
        Dim oAdapter As System.Data.OleDb.OleDbDataAdapter
 
        ' Pfad und Tabellennamen bitte anpassen!
        Dim sFile As String = "Q:\GRP-0158\HMT-Desktop\Links zu" & _
          "Dokumenten\Woerterbuch.xls"
        Dim sTable As String = "am Telefon"
 
        ' Connection-String für die DB.Verbindung zur Excel-Datei
        Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & sFile & ";" & _
          "Extended Properties=Excel 8.0;"
 
        ' Connection herstellen
        oConn = New System.Data.OleDb.OleDbConnection(sConn)
 
        ' Excel-Tabelle referenzieren
        ' Hinweis: Tabellenname muss mit abschließendem $-Zeichen und
        ' in eckigen Klammern stehen
        oAdapter = New System.Data.OleDb.OleDbDataAdapter( _
          "SELECT * FROM [" & sTable & "$]", oConn)
 
        ' DataSet erstellen und mit Daten aus dem DataAdapter füllen
        oDs = New System.Data.DataSet
        Try
            oAdapter.Fill(oDs)
 
            ' DataGrid füllen und Daten anzeigen
            With DataGridView1
                .DataSource = oDs.Tables(0)
                .ReadOnly = True
                .Refresh()
                With .Columns(0).DefaultCellStyle
                    .Alignment = DataGridViewContentAlignment.MiddleRight
                    .BackColor = Color.AliceBlue
                End With
 
                With .Columns(1).DefaultCellStyle
                    .Alignment = DataGridViewContentAlignment.MiddleRight
                    .BackColor = Color.AliceBlue
                End With
 
                With .AlternatingRowsDefaultCellStyle
                    .BackColor = Color.LemonChiffon
                End With
 
            End With
 
            DataGridView1.AutoResizeColumns()
 
 
        Catch ex As Exception
            MsgBox("Fehler beim Anzeigen der Excel-Daten!")
        Finally
            ' DB-Verbindung schließen
            oConn.Close()
        End Try
 
 
        Timer1.interval = 1
        Timer1.start()
 
 
        oDs = Nothing
        oConn = Nothing
        oAdapter = Nothing
        sFile = Nothing
        sTable = Nothing
        sConn = Nothing
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        'Dim anzbuchstaben As Integer
        Dim row As DataGridViewRow
 
        For Each row In DataGridView1.Rows
            'Dim test As String
            'test = row.Cells(0).Value
 
            'MsgBox(test)
 
 
            If Len(row.Cells("0").Value) = 1 Then
                row.DefaultCellStyle.Font = New Font("Arial", 9, _
                  FontStyle.Bold)
                row.DefaultCellStyle.Alignment = _
                DataGridViewContentAlignment.TopLeft
            End If
        Next
    End Sub