Laufzeitfehler 9 - Überlauf -? Code anbei
03.05.2005 18:38:53
Peter
mit nachstehendem Code will ich diverse Tabellen in eine andere Mappe auslagern und in der bestehenden Mappe dann löschen.
Bisher hatte das kein Problem verursacht, nunmehr bekomme ich in der Zeile:..myWorksheet.UsedRange = myWorksheet.UsedRange.Value plötzlich folgende Meldung: Laufzeitfehler 9 Überlauf
Public
Sub Auslagern()
Application.ScreenUpdating = False
Dim i As Byte
For i = 3 To 9 Step 1
Sheets("200" & i).Visible = True
Sheets("Bm200" & i).Visible = True
Sheets("Bq200" & i).Visible = True
Sheets("Bj200" & i).Visible = True
Next i
Dim myWorksheet As Worksheet
Sheets(Array("2003", "2004", "2005", "2006", "2007", "2008", "2009", "Bm2003", "Bm2004", "Bm2005", "Bm2006", "Bm2007", "Bm2008", "Bm2009", "Bq2003", "Bq2004", "Bq2005", "Bq2006", "Bq2007", "Bq2008", "Bq2009", "Bj2003", "Bj2004", "Bj2005", "Bj2006", "Bj2007", "Bj2008", "Bj2009")).Copy
For Each myWorksheet In ActiveWorkbook.Worksheets
myWorksheet.UsedRange = myWorksheet.UsedRange.Value
Next
ActiveWorkbook.SaveAs "C:\" & frmVerwaltung.TextBox2.Value
Application.DisplayAlerts = False
ActiveWorkbook.Close
Workbooks("Timecheck.xls").Activate
Application.DisplayAlerts = False
Sheets(Array("2003", "2004", "2005", "2006", "2007", "2008", "2009", "Bm2003", "Bm2004", "Bm2005", "Bm2006", "Bm2007", "Bm2008", "Bm2009", "Bq2003", "Bq2004", "Bq2005", "Bq2006", "Bq2007", "Bq2008", "Bq2009", "Bj2003", "Bj2004", "Bj2005", "Bj2006", "Bj2007", "Bj2008", "Bj2009")).Delete
ThisWorkbook.Saved = True
Application.ScreenUpdating = True
End Sub
Die auszulagernden Daten haben ein Volumen von 3,04 MB. Weiss da jemand Rat?
Vielen Dank
Peter S.