Progressbar - Shape
05.06.2009 09:33:47
Flo
ich habe ein kleines Programm welches innerhalb eines Excel Sheets läuft. Da dies ein paar Minuten dauert zum ausführen, habe ich eine Progressbar eingebaut. Es geht auch alles. Jedoch immer wenn ich
den Sheet neu aufmache und das Programm ausführe ist die Bar in einer ganz anderen Form als eigentlich gedacht.
Deshalb habe ich bei öffnen des Workbooks folgenden Code.
Sub Workbook_open()
Worksheets("Wessling ActiveWO Tool").Activate
Worksheets("Wessling ActiveWO Tool").Range("d5").Interior.ColorIndex = 3
Worksheets("Wessling ActiveWO Tool").Range("d5").Value = "not started"
Worksheets("Wessling ActiveWO Tool").Range("d9").Interior.ColorIndex = 3
Worksheets("Wessling ActiveWO Tool").Range("d9").Value = "not started"
Worksheets("Wessling ActiveWO Tool").ProgressBar1.Value = 0
Worksheets("Wessling ActiveWO Tool").ProgressBar1.Visible = False
Worksheets("Wessling ActiveWO Tool").ProgressBar1.Height = 24
Worksheets("Wessling ActiveWO Tool").ProgressBar1.Width = 210
Worksheets("Wessling ActiveWO Tool").ProgressBar1.Top = 316.5
Worksheets("Wessling ActiveWO Tool").ProgressBar1.Left = 327.75
ThisWorkbook.Worksheets("Wessling ActiveWO Tool").Range("g24").Value = Empty
End Sub
leider ändert das nichts. Ich kenne ähnliches aus Userform Objekten. Dort habe ich das dann mit Me.Repaint gelöst.
Weiss evtl. jemand Rat?
Danke im voraus
Flo