Hallo, leider weis ich nicht, wie ich das umsetzen könnte. Vielleicht kann mir jemand den Code so hinzaubern, das dieser funktioniert. Wüsste momentan nicht,
wie ich das umsetzen soll.
Hier der komplette Code:
Public Sub externtransferbasis()
Dim wbStart, wbZiel As Workbook
Application.ScreenUpdating = False
Worksheets("ExternBasis").Unprotect Password:="test"
If MsgBox("Willst du jetzt wirklich die Basisdaten in die Externe Datei übertragen? JA/NEIN", vbYesNo) = vbYes Then
If Worksheets("ExternBasis").Range("Q1").Value = "kopiert" Then
MsgBox ("Daten wurden bereits übertragen, transfer wird abgebrochen !!!")
Exit Sub
Else
Worksheets("ExternBasis").Activate
Worksheets("ExternBasis").Range("Q1").Value = "kopiert"
Set wbStart = ActiveWorkbook
Set wbZiel = Workbooks.Open("O:\Produktionsbericht\Cute\Masterfiles\Masterfile_Ezp.xlsm")
Workbooks("Masterfile_Ezp.xlsm").Activate
With Sheets("Basisdaten_Eazypack")
x = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
wbStart.Sheets("ExternBasis").Range("A2:M15000").SpecialCells(xlCellTypeVisible).Copy
wbZiel.Sheets("Basisdaten_Eazypack").Cells(x, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Workbooks("Masterfile_Ezp.xlsm").Activate
Workbooks("Masterfile_Ezp.xlsm").Close True
MsgBox "Übertragung erfolgreich !!!"
End If
Else
MsgBox "Vorgang abgebrochen"
End If
Worksheets("Zeiten").Activate
Worksheets("ExternBasis").Protect Password:="test"
Application.ScreenUpdating = True
End Sub
|