Runtime Error 28 Out Of Stack
Nibio
ich habe ein Problem. vielleicht könnte mir jemand helfen. Ich habe ein Excel file bekommen (ecxcel 2007).
Habe ein Makro eingebaut um das ganze über nacht laufen zu lassen, in schleife. Es läuft gut, aber nach ca. 10 minute kommt die meldung Runtime Error 28 Out Of Stack. Was kann ich jetzt tun? Warum diese Meldung? Das liegt vermutlich an den Script (Makro) aber ich weiß nicht an was genau, kann mir jemand bitte helfen? Herzlichen Dank im Voraus, Danke vielmals an allen.
Hier meine Makros:
Sub ms_riporta()
Range("H3:L3").Select
Selection.Copy
Sheets("Foglio1").Select
Cells(Cells(65536, 1).End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Riepilogo").Select
Application.Run "'" & ActiveWorkbook.Name & "'!CancellaPermanenza"
Application.Run "'" & ActiveWorkbook.Name & "'!ms_tirauncolpo"
End Sub
Sub ms_tirauncolpo()
If Sheets("Riepilogo").Range("n1").Value = 1 Then Exit Sub
Range("AA6").Select
Selection.End(xlDown).Select
Selection.Copy
Range("AA4:AA5").Select
ActiveSheet.Paste
Range("AA6").Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Run "'" & ActiveWorkbook.Name & "'!InserisciNumeroManuale"
If Sheets("Riepilogo").Range("n1").Value = 1 Then Application.Run "'" & ActiveWorkbook.Name _
_
& "'!ms_riporta" Else Application.Run "'" & ActiveWorkbook.Name & "'!ms_tirauncolpo"
End Sub
Anzeige