Statusanzeige
13.02.2018 08:32:31
Okan
ich würde gerne folgendes Makro ausführen und dabei eine Statusanzeige einblenden, wo Angezeigt wird, wie weit der Makro ist und welcher Teil gerade ausgeführt wird.
Private Sub Workbook_Open()
Call Startseite_Übersicht
Call Import_Data(Sheets("Entnahme"))
Call Import_Data(Sheets("Feeder_2_S13A"))
Call Import_Data(Sheets("Feeder_2_S13B"))
Call Import_Data(Sheets("Feeder_2_S13C"))
Call Import_Data(Sheets("Kontrolle_100"))
Call Import_Data(Sheets("LV_140221"))
Call Import_Data(Sheets("LV_140231"))
Call Import_Data(Sheets("LV_140241"))
Call Import_Data(Sheets("LV_140311"))
Call Import_Data(Sheets("LV_140331"))
Call Import_Data(Sheets("LV_140341"))
Call Import_Data(Sheets("LV_160410"))
Call Import_Data(Sheets("LV_160411"))
Call Import_Data(Sheets("LV_160413"))
Call Import_Data(Sheets("LV_210311"))
Call Import_Data(Sheets("LV_210611"))
Call Import_Data(Sheets("LV_210621"))
Call Import_Data(Sheets("LV_211021"))
Call Import_Data(Sheets("LV_211411"))
Call Import_Data(Sheets("LV_211421"))
Call Import_Data(Sheets("LV_214511"))
Call Import_Data(Sheets("LV_214521"))
Call Import_Data(Sheets("LV_214611"))
Call Import_Data(Sheets("LV_214711"))
Call Import_Data(Sheets("LV_214811"))
Call Import_Data(Sheets("LV_214911"))
Call Import_Data(Sheets("LV_215211"))
Call Import_Data(Sheets("LV_215311"))
Call Import_Data(Sheets("LV_330111"))
Call Import_Data(Sheets("LV_330312"))
Call Import_Data(Sheets("LV_330511"))
Call Import_Data(Sheets("LV_330922"))
Call Import_Data(Sheets("LV_335131"))
Call Import_Data(Sheets("LV_335133"))
Call Import_Data(Sheets("LV_335211"))
Call Import_Data(Sheets("Reparatur"))
End Sub
Ich bedanke mich im VorausVG
Okan