Ich komme leider nicht weiter mit diesem Makro und hoffentlich könnt ihr mich weiter helfen.
Das Makro wird im "Hauptbuch" gestartet, kopiert und holt Daten in DATA_02.xls
In diesem workbook hat es einem Link auf einem Arbeitsblatt, welches es noch nicht gibt. ( DATA_DC )
Mann könnte natürlich sagen; nimm diesen Link doch weg! Darf aber nicht sein.
Das Problem ist jetzt; wenn das Makro lauft, kommt:
FILE NOT FOUND ( OK oder Cancel )
Ist es möglich dieses " FILE NOT FOUND" zu unterdrücken?
Vielen Dank
Robert
ChDir "S:\PRACTS\WBN\Database02\PLAN_02"
Workbooks.Open Filename:= _
"S:\PRACTS\WBN\Database02\PLAN_02\DATA_02.xls", UpdateLinks _
:=3
Workbooks("Hauptbuch02.xls").Sheets("Job_001").Activate
Range("A7:G7").Select
Selection.Copy
Windows("DATA_02.xls").Activate
Sheets("DATA_DB").Range("C13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
skipBlanks:= _
False, Transpose:=True
Sheets("DATA_Main").Select
Range("B14:H46").Select
Range("B14:H46").Copy
Windows("Hauptbuch02.xls").Activate
While Workbooks("Hauptbuch02.xls").Sheets("Data").Range("B4").Offset(0, Counter).Value <> ""
Counter = Counter + 1
Wend
Workbooks("Hauptbuch02.xls").Sheets("Data").Range("B5").Offset(0, Counter).PasteSpecial
xlPasteValues
Windows("DATA_02.xls").Activate
Application.CutCopyMode = False 'clipboard delete
Range("B15").Select
Workbooks("DATA_02.xls").Close savechanges:=False
Windows("Hauptbuch02.xls").Activate
Range("B6").Select
Application.CutCopyMode = False