Brauche immer noch Eure Hilfe zu einem Problem, wo ich seit Montag dran werkele und fast am verzweifeln bin. Entschuldige mich auch, das ich mit der mit Euch errungenen Teillösung, noch mal einen neuen Thread eröffne. Aber ich bin schon soweit untern wieder, das ich Angst habe übersehen zu werden. Großes Sorry.
Dieser Code funktioniert
Sub Unit()
Dim wbQuelle As Workbook
Dim strDatei As String
strDatei = ThisWorkbook.Worksheets("Beilagenauftrage").Range("P1").Text
Set wbQuelle = Workbooks.Open("N:\Datencenter\" & strDatei)
wbQuelle.Worksheets("Beilagenauftrag").Range("A1:E178").Copy
ThisWorkbook.Worksheets("TabelleIn").Range("A1").PasteSpecial Paste:=xlPasteValidation
Application.CutCopyMode = False
wbQuelle.Close False
Set wbQuelle = Nothing
End Sub
Bis zu dem Punkt
ThisWorkbook.Worksheets("TabelleIn").Range("A1").PasteSpecial Paste:=xlPasteValidation
dort bricht es ab mit der Fehlermeldung, die Paste spezial Methode des range-Objektes konnte nicht ausgeführt werden.Ich bin echt verweifelt habe auf gut Glück verschieden Varianten aus Forum und Internet getestet immer das Gleiche.
Hoffe Ihr könnt mir Helfen und ich danke Euch im voraus von ganzen Herzen.
LG Robert