ich habe eine datei, die aus ca. 20 tabellenblättern besteht.
diese müssen allerdings jeweils in eine eigene datei kopiert werden.
aktuell nutze ich hierfür folgendes makro:
Sub BlaetterEinzelnSpeichern()
Dim strVerzeichnis As String
Dim shBlatt As Worksheet
strVerzeichnis = "c:\user\desktop\" 'mit "\" am Ende !!!
For Each shBlatt In ActiveWorkbook.Worksheets
If shBlatt.[A6] "" Then
shBlatt.Copy
ActiveWorkbook.SaveAs strVerzeichnis & "\2014-08 " & ActiveSheet.[A6].Value & " _
Blatt1.xlsx"
ActiveWorkbook.Close False
Else
MsgBox shBlatt.Name, vbOKOnly + vbCritical, "Fehlender Dateiname in A6 in Blatt "
End If
Next
End Sub
Allerdings ist mein problem, dass mit diesem makro immernoch eine verknüpfung zur usprungsdatei bestehen bleibt, die ich aktuell manuell entferne (verknüpfung löschen).
Perfekt wäre es, wenn zukünftig die verknüpfung automatsich entfernt wird, allerdings sollten bestehende formeln erhalten bleiben.
wäre es möglich dies in das makro zu integrieren?
vielen dank vorab für eure hilfe!