1
Vba Speichern eines neuen Workbooks mit .PasteSpecial xlPasteFormulas
Beim Speichern eines neuen Workbooks mit .PasteSpecial xlPasteFormulas bleiben Verweise auf die ursprüngliche Datei drin
Hallo,
beim Speichern eines neuen Workbooks ("Newbook") bleibt der Verweis auf den alten Tabellenblatt in der Formelinhalt drin und es wird nicht aktualisiert. Die Zellen enthalten folgende Formeln =IF('[Auswerte_Makro.xls]Tabelle zum Import '!G5="";"";'[Auswerte_Makro.xls]Tabelle zum Import Motivdata'!G5)
Ich habe bisher folgendes probiert
der Verweis auf die alte Datei ("Auswerte_Makro.xls") bleibt aber drin. Es klappt nur wenn das komplette Workbook gespeichert wird, Gibt's da Workarounds?
Grüße
dedalus2011
Hallo,
beim Speichern eines neuen Workbooks ("Newbook") bleibt der Verweis auf den alten Tabellenblatt in der Formelinhalt drin und es wird nicht aktualisiert. Die Zellen enthalten folgende Formeln =IF('[Auswerte_Makro.xls]Tabelle zum Import '!G5="";"";'[Auswerte_Makro.xls]Tabelle zum Import Motivdata'!G5)
Ich habe bisher folgendes probiert
Set Newbook = Workbooks.Add
Dim wksheet As Worksheet
For i = 1 To ThisWorkbook.Sheets.Count
ThisWorkbook.Worksheets(i).Cells.Copy
With Newbook.Sheets(i).Range("A1")
.PasteSpecial xlPasteFormulas
End With
Next
Newbook.SaveAs Filename:=Pfad & "\" & Filename & ".xls"
......der Verweis auf die alte Datei ("Auswerte_Makro.xls") bleibt aber drin. Es klappt nur wenn das komplette Workbook gespeichert wird, Gibt's da Workarounds?
Grüße
dedalus2011
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 184011
Url: https://administrator.de/contentid/184011
Ausgedruckt am: 24.11.2024 um 09:11 Uhr
1 Kommentar
Hallo dedalus2011!
Versuchs mal so:
Gruß Dieter
Versuchs mal so:
Dim SheetsArray As Variant, i As Integer
ReDim SheetsArray(1 To Sheets.Count)
For i = 1 To Sheets.Count
SheetsArray(i) = i
Next
Sheets(SheetsArray).Copy
ActiveWorkbook.Close SaveChanges:=True, Filename:=Pfad & "\" & Filename & ".xls" Gruß Dieter
