Datenexport bricht ab
Mark
ich habe ein Problem beim Exportieren einer Arbeitsmappe. Die Arbeitsmappe enthält sowohl Tabellen, als auch Pivots und Diagramme (insgesamt ca. 30 Diagramme, 4 Tabellen, und 5 Tabellen mit Pivots).
Hierfür verwende ich folgendes Makro:
Option Explicit
Sub data_Export()
Dim objWS As Worksheet, i As Integer
With Application
.ScreenUpdating = False
Workbooks.Add
With .ThisWorkbook
For Each objWS In .Worksheets
objWS.Copy after:=Sheets(Sheets.Count)
Next
End With
.DisplayAlerts = False
For i = .SheetsInNewWorkbook To 1 Step -1
ActiveWorkbook.Sheets(i).Delete
Next
.DisplayAlerts = True
For Each objWS In ActiveWorkbook.Worksheets
If objWS.PivotTables.Count = 0 Then objWS.UsedRange = objWS.UsedRange.Value
Next
deleteAllCodeAndModules ActiveWorkbook.Name
.Dialogs(xlDialogSaveAs).Show
.ScreenUpdating = True
End With
End Sub
Sub deleteAllCodeAndModules(ByVal WBook As String)
Dim objVBComp As Object
With Workbooks(WBook).VBProject
For Each objVBComp In .vbcomponents
If objVBComp.Type = 100 Then
With .vbcomponents(objVBComp.Name).CodeModule
.DeleteLines 1, .CountOfLines
End With
'Else
' .vbcomponents.Remove objVBComp
End If
Next
End With
End Sub
Manchmal klappt der Export, jedoch bekomme ich fast immer eine Fehlermeldung bei der Zeile:
Then objWS.UsedRange = objWS.UsedRange.Value
Ein Bekannter hat mich darauf hingewiesen, dass es die Value-Eigenschaft bei UsedRAnge nicht gibt, sondern nur bei den Zellen.
Kann mir jemand weiterhelfen?
Vielen Dank im Vorraus!