Progressbar geht nicht
01.03.2009 13:14:07
Ingo
In einem Modul (ist nicht komplett abgebildet, da lang) wollte ich eine Progressbar einrichten.
Leider ohne Erfolg
Die Progressbar liegt in der Userform Jahreswechsel
Option Explicit
Sub processing(l As Long, m As Long)
With Jahreswechsel
.Caption = "Processing..." & Int(l * 100 / m) & "%"
.ProgressBar2.Value = Int(l * 100 / m)
End With
End Sub
Sub ChangeV1()
With Jahreswechsel
'hier fängt der Jahreswechsel an:
.Caption "Processing....15%"
.ProgressBar2.Value = 15
'Uebertragen der Vorjahreswerte in Vorjahreswerte für Kennzahlen
Worksheets("BVorjahr").Range("G9:G14") = Sheets("B").Range("A9:A14").Value
Worksheets("BVorjahr").Range("G18:G23") = Sheets("B").Range("A18:A23").Value
Worksheets("BVorjahr").Range("G27:G32") = Sheets("B").Range("A27:A32").Value
Worksheets("DVorjahr").Range("G9:G14") = Sheets("D").Range("A9:A14").Value
Worksheets("DVorjahr").Range("G18:G22") = Sheets("D").Range("A18:A22").Value
Worksheets("DVorjahr").Range("G26:G29") = Sheets("D").Range("A26:A29").Value
Worksheets("DVorjahr").Range("G33:G35") = Sheets("D").Range("A33:A35").Value
Worksheets("DVorjahr").Range("G39:G41") = Sheets("D").Range("A39:A41").Value
Worksheets("DVorjahr").Range("G45:G47") = Sheets("D").Range("A45:A47").Value
Worksheets("DVorjahr").Range("G51:G53") = Sheets("D").Range("A51:A53").Value
Worksheets("a2Vorjahr").Range("G9:G17") = Sheets("a2").Range("A9:A17").Value
Worksheets("a2Vorjahr").Range("G21:G25") = Sheets("a2").Range("A21:A25").Value
Worksheets("a2Vorjahr").Range("G29:G34") = Sheets("a2").Range("A29:A34").Value
Worksheets("a2Vorjahr").Range("G38:G43") = Sheets("a2").Range("A38:A43").Value
'Uebertragen der Hauptjahresdaten inkl. Korrekturen ins Vorjahr.
Worksheets("DatenUForm").Range("H2:H1359") = Sheets("DatenUForm").Range("I2:I1359").Value
'Löschen aller Nachtragsbuchungen inkl. Kontennummer im Sheet NBListe.
Application.EnableEvents = False
Sheets("Berumb").EnableCalculation = False
Worksheets("NBListe").Unprotect
Worksheets("NBListe").Range("B8:H47").ClearContents
Worksheets("NBListe").Range("B57:H94").ClearContents
Worksheets("NBListe").Protect
Sheets("Berumb").EnableCalculation = True
.Caption "Processing....30%"
.ProgressBar2.Value = 30
da geht der Code noch weiter.....
Was mache ich da falsch?
Gruß
Ingo