Sub
Dataupdate_Klicken()
Application.ScreenUpdating =
False
ActiveSheet.Shapes(
"dataupdate"
).OLEFormat.
Object
.Caption =
"Daten update Stand: "
& FileDateTime(
"C:\Users\" & Environ("
userName
") & "
\Desktop\EXPORT.XLSX")
Workbooks.Open (
"C:\Users\" & Environ("
userName
") & "
\Desktop\EXPORT.XLSX")
If
Workbooks(
"EXPORT.xlsx"
).Worksheets(
"Sheet1"
).Range(
"A1"
).Value = Workbooks(
"Tracking_Rückmeldezeiten_Assy_erweitert_v2.xlsm"
).Worksheets(
"Data_Input"
).Range(
"A1"
)
Then
Workbooks(
"EXPORT.xlsx"
).Worksheets(
"Sheet1"
).Range(
"A:Z"
).Copy _
Workbooks(
"Tracking_Rückmeldezeiten_Assy_erweitert_v2.xlsm"
).Worksheets(
"Data_Input"
).Range(
"A1"
)
Else
MsgBox
"Datensätze stimmen nicht überein"
End
If
Workbooks(
"EXPORT.xlsx"
).Close savechanges:=
False
Application.ScreenUpdating =
True
End
Sub