Hallo!
Ich benötige einen Befehl, der währen meiner Prozedur anzeigt, das diese noch läuft und am ende ihren Abschluss anzeigt!
Vielleicht hat jemand eine Idee!
Gruss
Ines
Mein Code:

Sub M_0()
Application.DisplayAlerts = False

Application.Run "'Import BW #0.xls'!M_1_KoSt_121_öffnen_Schritt_1"
Application.Run "'Import BW #0.xls'!M_2_Schritt_2"
Application.CutCopyMode = False
Application.Run "'Import BW #0.xls'!M_3_KoTr_121_öffnen_Schritt_3"
Application.Run "'Import BW #0.xls'!M_4_Schritt_4"
Application.CutCopyMode = False
Application.Run "'Import BW #0.xls'!M_5_Schritt_5"



Windows("KSTTRG_121_IHK_Emden.csv").Activate
ActiveWindow.Close
Windows("KSTSTL_121_IHK_Emden.csv").Activate
ActiveWindow.Close

Sheets("KoSt_KoTr").Select
Sheets("KoSt_KoTr").Copy
ActiveWorkbook.SaveAs Filename:= _
"D:\Programme\varialexport\output\----KoSt_u_KoTr.csv", FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWindow.Close

Sheets("KoSt_KoTr").Select
Cells.Select
Range("A1").Activate
Selection.ClearContents
Sheets("Makro-Start-Button").Select
Range("A1").Select
Application.Run "'Import BW #0.xls'!M_6"
Application.DisplayAlerts = True
End Sub