Supportnet / Forum / Tabellenkalkulation
Box, die angibt dass das Makro noch Berechnungen durchführt!
Frage
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
Antwort 1 von Hajo_Zi
Antwort 2 von Platin7
Hallo Hajo!
Danke für die rasche Antwort!
Mir ist jedoch noch nicht klar, an welcher Stelle meines Codes ich deine Vorschläge einbinden soll!
Vielleicht kannst Du mir das noch näher erläutern!
Gruss
Ines
Danke für die rasche Antwort!
Mir ist jedoch noch nicht klar, an welcher Stelle meines Codes ich deine Vorschläge einbinden soll!
Vielleicht kannst Du mir das noch näher erläutern!
Gruss
Ines
Antwort 3 von Hajo_Zi
Hallo Ines,
im Code steht
Call OhneSelect
Call MitSelect
Call MitSelect2
das mußt Du ersetzen durch
call M_0
und falls es nicht mit open gestartet werden soll da den Aufruf rausnehmen.
Gruß Hajo
im Code steht
Call OhneSelect
Call MitSelect
Call MitSelect2
das mußt Du ersetzen durch
call M_0
und falls es nicht mit open gestartet werden soll da den Aufruf rausnehmen.
Gruß Hajo