ich habe eine Menge Dateien die beim öffnen melden, dass keine neue Formate hinzugefügt werden können.
Ich habe das folgende gebastelt:
Sub ben_def()
fname = ActiveWorkbook.Name
Pfad = ThisWorkbook.Path
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows(fname).Close False
Kill fname
ActiveWorkbook.SaveAs fname
End Sub
Jetzt geht es wieder, da ich ja nur die tatsächlich benutzten Formate übernommen habe, oder???
Ausserdem geht es nut wenn die Datei nur ein Blatt hat, auch wird der original Name nicht übernommen. Kann da jemand noch etwas verfeinern?
Danke