Anzeige friert ein bei SaveAs
27.10.2021 23:09:05
SchubertFranzl
habe Schwierigkeiten beim Speichern von Dateien mit Makro.
Das Makro speichert die Datei mehrfach unter verschiedenen Namen. Fünf mal geht noch, aber bei 30 Mal wird der Bildschirm weiß, alles friert ein, und nach getaner Arbeit erholt sich die Anzeige, die Blockade ist aufgehoben und die zu speichernden Dateien sind wirklich da.
Sub Test()
Dim i As Long
Dim Dateiname As String
Range("A1").Select
For i = 1 To 5
Dateiname = ThisWorkbook.Path & "\" & "Test " & Timer & ".xlsm"
ThisWorkbook.SaveAs Dateiname
Selection.Offset(1).Select
Next i
End Sub
LG,
Franz