CommonDialog3.InitDir = "X:\"
    CommonDialog3.Filter = "Excel-Files (*.xls)|*.xls" 'Nur Excel-Files anzeigen
    CommonDialog3.FileName = "Berechnung.xls"
    CommonDialog3.ShowOpen
 
    PfadExcel = CommonDialog3.FileName
    'vollständiger Pfad zur Excel Datei
    sExcelFile = PfadExcel
 
    'Tabellenname
    sTabelle1 = "Vorgestern"
    sTabelle2 = "Gestern"
    sTabelle3 = "Berechnung"
    sTabelle4 = "Berechnung 2"
 
    'Datenbank öffnen (Excel Datei)
    Set Conn = New ADODB.Connection
    Conn.CursorLocation = adUseClient
 
    'Excel 2003 11.0
    Conn.Open "Provider=Microsoft.jet.OLEDB.4.0;" & _
        "Extended Properties=Excel 8.0;" & _
            "Data Source=" & sExcelFile & ";"
 
 
    'Recordset erstellen und öffnen
    Set Rs = New ADODB.Recordset
    Rs.Open "SELECT * FROM [" & sTabelle3 & "$]", Conn, _
        adOpenKeyset, adLockOptimistic