Fortschrittsanzeige
04.11.2003 20:29:22
Andreas
ich habe ein Makro aufgezeichnet und möchte gerne während des Ablaufes eine Fortschrittsanzeige einblenden. Ich habe schon viele dieser Fortschrittsanzeigen im Internet gefunden, aber leider kann ich Sie nicht in mein Makro einbinden! Wer kann mir helfen??
Hier mein ziemlich normales Makro:
Sub Start()
' START Makro
' Makro am 28.10.2003 von Andreas aufgezeichnet
Sheets("Datenbild").Select
Application.Run "PATpro.xls!Makro1"
Application.ScreenUpdating = False
Sheets("Aufbereitung").Select
ActiveWindow.SmallScroll ToRight:=6
Application.Run "Makro2"
Sheets("Aufbereitung").Select
ActiveWindow.SmallScroll ToRight:=-6
Application.Run "PATpro.xls!Makro3"
Sheets("Aufbereitung").Select
ActiveWindow.SmallScroll ToRight:=-7
Application.Run "PATpro.xls!Makro4"
Sheets("Aufbereitung").Select
ActiveWindow.SmallScroll ToRight:=-36
Application.Run "PATpro.xls!Makro5"
Sheets("Aufbereitung").Select
Application.Run "PATpro.xls!Makro5"
Sheets("Kunde im Detail").Select
Application.ScreenUpdating = True
Range("B3:D3").Select
End Sub
Vielen Dank schon mal!
Anzeige