Public Sub excelLesen()
 
        Dim xlApp As Excel.Application
        Dim xlMappe As Excel.Workbook
        Dim xlBlatt As Excel.Worksheet
        Dim xlZelle As Excel.Range
        Dim xlzMonthInt As Excel.Range
 
        Dim xlCellValue As String
        Dim i As Integer
 
        xlApp = New Excel.Application 'Offenet der programm
        xlApp.Visible = False 'macht es im hintergrund      
        xlMappe = _
        xlApp.Workbooks.Open("c:\Statistik1.xls")
        xlzMonthInt = xlZelle
 
        For i = 0 To xlzMonthInt.Rows.Count
            If xlCellValue = "M" Then
                MsgBox(xlCellValue)
            End If
        Next i
 
    End Sub