Supportnet Computer
Planet of Tech

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

Hallo Ines,

Link zur Datei

Gruß Hajo

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

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