Hallo liebes Forum,
ich habe in einer Datei einen Button "Sicherung" erstellt.
Damit wird folgendes BVA ausgeführt:
Sub Sicherung()
Dim Pfad As String
Dim sFile As String
Application.ScreenUpdating = False
Pfad = "\\stwfile.stw.local\daten\Sicherungen\"
sFile = Split(ThisWorkbook.Name, ".")(0) & "-" & Format(Date, "yyyy-mm-dd") & ".xlsx"
ActiveSheet.Unprotect Password:="123"
ActiveSheet.Copy
ActiveSheet.Buttons(1).Delete
ActiveWorkbook.SaveAs Filename:=Pfad & sFile, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close savechanges:=False
MsgBox "Das Blatt wurde unter " & Pfad & sFile & " gespeichert!"
ActiveSheet.Protect Password:="123"
Application.ScreenUpdating = True
End Sub
Ich gebe die Sicherungsdatei as xlsx aus.
Die Datei wird durch Powerquery täglich aktualisiert befüllt, so dass derzeit die Sicherungskopie auch die Powerquery-Verknüfungen hat.
Ich möchte aber diese Verknüpfungen nicht in der Sicherungsdatei haben, sondern nur die reinen Daten.
Hat jemand einen Tipp für mich, wie ich das in der BVA integrieren kann, dann die Datenverknüpfung bei der Sicherungsdatei entfernt wird?
Vielen Dank und viele Grüße
Anja