Fortschrittanzeige in diesen Listing einbauen

Forumthread: Fortschrittanzeige in diesen Listing einbauen

Isabell

Hallo Leute, habe bisher vergebens versucht in folgenden Listing eine
Fortschrittanzeige mit einer UserForm einzubauen.
Kann mir jemand die entsprechende Befehlszeilen einbauen ?
Es soll die UserForm1, und der Fortschrittbalken in Label3 erscheinen.
Würde mich sehr über die Lösung freuen.
Gruß
Isabell


Private Sub CommandButton2_Click()
AplicationScreenapdating = False
Application.StatusBar = "Die Berechnung der Stunden wird ausgeführt"
Dim i As Integer, j As Integer, k As Integer, l As Integer
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("B" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 9, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("B" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 9, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("C" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 11, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("C" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 11, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("D" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 13, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("D" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 13, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("E" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 15, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("E" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 15, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("F" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 17, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("F" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 17, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("G" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 19, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("G" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 19, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("H" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 21, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("H" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 21, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("I" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 23, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("I" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 23, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("J" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 25, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("J" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 25, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("K" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 27, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("K" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 27, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("L" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 29, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("L" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 29, 35).Value
j = j + 35
l = l + 7
Next
j = 0
l = 3
For i = 1 To 53
For k = 1 To 6
Worksheets("Auswertung").Range("M" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 31, (5 * k) + 1).Value
Next
k = 7
Worksheets("Auswertung").Range("M" & k + l).Value = _
Worksheets("Wochenplan").Cells(j + 31, 35).Value
j = j + 35
l = l + 7
Next
AplicationSreenapdating = True
Application.StatusBar = "Die Berechnung ist abgeschlossen"
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

erstmal ...Calculation = xlCalculationManual

ChrisL

Application.Calculation = xlCalculationManual
Hi Isabell
Erstmal würde ich obige Zeile verwenden und die Berechnung erst am Schluss wieder aktivieren.
Mit Fortschrittsanzeige kann ich dir nicht wirklich helfen, aber im Archiv gibt es diverse Beiträge und zu mindest der Versuch von Dir es selbst einzubauen wird schon erwartet.
Gruss
Chris