Frage zu einem Makro für eine Fortschrittanzeige!?
12.05.2005 12:08:59
Oliver
ich teste nun schon in allen Varianten, aber ich komme nicht dahinter. Ich habe mir mal ein Beispielmakro für einen Laufbalken erstellt. Nun habe ich ein Problem, dass ich mir in einem Label die Prozente anzeigen lassen will. Das funktioniert aber leider nicht so ganz. Mir wird immer nur am Schluß die 100% angezeigt. Nicht aber am Anfang die 0 Prozent und dann in den Schritten der Schleife die Prozente. Hat jemand eine Idee, woran das liegen könnte? Ich komme einfach nicht dahinter. Nachfolgend mal das Beispielmakro:
Option Explicit
Public Wiederholungen As Integer
Sub Fortschrittanzeige_starten()
'Breite Label1 "Laufbalken" auf 0 setzen
ActiveSheet.Laufbalken.Width = 0
'Text Label2 "Prozentanzeige" auf 0% setzen
ActiveSheet.Prozentanzeige.Caption = Format(0, "0%")
'Schleife zum Verändern der Breite von Label1 "Laufbalken"
'und Label2 "Prozentanzeige"
For Wiederholungen = 0 To 10
'In Label2 den Wert der Variablen "Wiederholungen" dividiert
'durch den Wert 10 anzeigen
ActiveSheet.Prozentanzeige.Caption = Format(Wiederholungen / 10, "0%")
'Breite von Label1 "Laufbalken" um den Wert der Variablen
'"Wiederholungen" multipliziert mal dem Wert 10 verändern
ActiveSheet.Laufbalken.Width = (Wiederholungen * 10) + 10
'Schleife für 1 Sekunde unterbrechen
Application.Wait (Now + TimeValue("0:00:01"))
'Nächsten Schleifendurchlauf beginnen
Next
End Sub
Danke Euch schon mal für die Hilfe,
Oliver