Also hab das Problem jetzt auf Grundlage deines Codes und mit jemand anderem gelöst bekommen.
Das ist der Code der so funktioniert wie ich es mir vorgestellt hab, falls du mal n Blick drauf werfen willst:
Public
Sub
CopyData1()
Dim
objWSSource
As
Worksheet, objWSTarget
As
Worksheet
Dim
strFile
As
String
ChDrive ("S:\")
ChDir ("S:\xxx\xxx\xxx\")
strFile = Application.GetOpenFilename(
"Exceldateien (*.xlsx;*.xlsm;*.xls),*.xlsx;*.xlsm;*.xls"
, ,
"Zieldatei wählen..."
)
If
Not
CVar(strFile) =
False
Then
Set
objWSSource = ActiveSheet
Application.ScreenUpdating =
False
Set
objWSTarget = Workbooks.Open(strFile).Worksheets(
"Prüfprotokoll"
)
objWSTarget.Range(
"B28:B37"
).Value = Round(objWSSource.Range(
"F2"
).Value, 3)
objWSSource.Parent.Close
False
Application.ScreenUpdating =
True
Else
MsgBox
"Es wurde keine Datei ausgewählt."
Set
objWSSource = ActiveSheet
objWSSource.Parent.Close
End
If
End
Sub