Datei öffnen aber ohne

Dim lFile

    Dim lloRow As Long, ldtRgDate As Date, lstrRgNr As String, lboOK As Boolean, lloRNext As Long

    Dim wks, shs, pshDB





    Dim wksQUELLE As Worksheet            'Quell-Worksheet

    Dim wksZIEL As Worksheet              'Ziel-Worksheet

    Dim wkbZIEL As Workbook, wkbQUELLE As Workbook

    Dim rngZIEL As Range

    Dim strSUCH As String

       

    Const cstr_wkbQUELLE As String = "Datenbank.xlsm"

    Const cstr_wksQUELLE As String = "Daten"

    Const getStrPassWort = "tk"

      

       Set wkbQUELLE = ActiveWorkbook

       Set wksQUELLE = ActiveSheet

         

       On Error Resume Next

       Set wkbZIEL = Workbooks(cstr_wkbQUELLE)

       On Error GoTo 0

       If wkbZIEL Is Nothing Then

         Set wkbZIEL = Workbooks.Open("D:\" & cstr_wkbQUELLE)

       End If



      Exit Sub