Nach Ausführen dieses Makros stürzt mir Excel ab. Ich kann das Makro ausführen, erhalte eine Arbeitsmappe mit den gewünschten Datensätzen, nur wenn ich sie speichern möchte stürzt Excel ab. Die Datensätze sind komplett nicht größer als 3 MB
Dim Geschwindigkeit As Integer
For Geschwindigkeit = 20 To 100 Step 20
Dim Leistung As Integer
For Leistung = 25 To 125
Dim Zaehler As Integer
For Zaehler = 1 To 5
If Dir(„E:…\POM-“ & Geschwindigkeit & „-“ & Leistung & „_“ & Zaehler & „.dds“) „“ Then
Application.ScreenUpdating = False
Dateiname = „E:…\POM-“ & Geschwindigkeit & „-“ & Leistung & „_“ & Zaehler & „.xlsm“
Set xlWB = Workbooks.Open(Dateiname)
Sheets(„POM-“ & Geschwindigkeit & „-“ & Leistung & „_“ & Zaehler).Select
Sheets(„POM-“ & Geschwindigkeit & „-“ & Leistung & „_“ & Zaehler).Move After:=Workbooks(„POM.xlsm“).Sheets(1)
xlWB.Close , savechanges:=False
End If
Next
Next
Next
End Sub