Ich habe ein Problem mit Mappen Ansprechen. Ein Teil vom Code habe ich einkopiert und ist auch gut so.
Hauptbuch Name ist unterschiedlich und darum benütze ich Set WB = ThisWorkbook
Beim Öffnen von den 2 Mappen müss nichts gemacht werden bis Mappe "Master_Template" geöffnet wird.
Da muss etwas kopiert werden. Dass kopierte muss in ThisWorkbook eingefügt werden aber leider wird der nicht mehr angesprochen. Wo mache ich ein Fehler? Hoffentlich könnt ihr weiterhelfen.
Gruss, Robert
Private Sub Workbook_open()
Dim ingRow As Integer
Dim Wks As Worksheet
Dim WB As Workbook
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.AskToUpdateLinks = False
Set Wks = Worksheets("PARAMETER")
Set WB = ThisWorkbook
On Error GoTo ErrorHandler
lngRow = 2
With Wks
Do Until IsEmpty(.Cells(lngRow, 1))
Workbooks.Open .Cells(lngRow, 1).Value
lngRow = lngRow + 1
If ActiveWorkbook.Name Like "MASTER_TEMPLATE.xls" Then
ActiveWorkbook.Worksheets("PARAMETER").Range("BM_DATUM").Copy
Application.CutCopyMode = False
End If
Loop
End With
WB.Activate