Tabellenblatt teilweise in andere Datei
21.07.2021 10:20:12
Robert
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
ThisWorkbook.Worksheets("TabelleIn").Range("A1").PasteSpecial Paste:=xlPasteValidation
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
Anzeige