Excel stürzt beim Tabellenblätter kopieren ab
17.05.2007 14:24:00
Flo
Ich habe in meinem Programm noch ein Riesenproblem festgestellt.
Ich importiere mit einem Makro alle Tabellenblätter aus einer Exceldatei und füge diese hinter mein erstes Blatt ein.
Das funktioniert auch perfekt, aber nur beim ersten mal.
Wenn ich das Makro ein zweites mal ausführe werden alle existierenden Blätter bis auf das erste gelöscht und neue Blätter sollen importiert werden. Dabei stürzt das ganze Excel beim Kopiern dann ab.
Ich weiß leider nicht wo das Problem ist, da beim ersten mal immer alles funktioniert. Manchmal klappt es auch 3-5 mal und erst beim x. mal kommt der Absturz.
Schaut aus wie Speicherüberlauf oder so was.
Was kann ich tun?
Mein Importmakro häng ich mal an.
Danke für Eure Hilfe.
Gruß Flo
Sub importdata()
Dim d As Variant
Dim w As String
Dim Name As String
Set d = Nothing
Set TypeOfTreatment = Nothing
On Error Resume Next
Application.ScreenUpdating = False
Tabellenblätter_einblenden
löschen
Application.ScreenUpdating = True
Name = ActiveWorkbook.Name
d = Application.GetOpenFilename("Material Database(*.xls),*.xls", Title:="Import Material _
Database", MultiSelect:=False)
If d = False Then Exit Sub
Application.ScreenUpdating = False
Workbooks.Open d
TypeOfTreatment = Right(d, 4)
w = ActiveWorkbook.Name
Workbooks(w).Worksheets.copy after:=Workbooks(Name).Worksheets(1)
Application.DisplayAlerts = False
Workbooks(w).Close
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets.Add after:=ActiveWorkbook.Worksheets(1)
ActiveSheet.Name = "Export"
ActiveWorkbook.Sheets("General").Select
Application.ScreenUpdating = True
End Sub