Fortschrittanzeige in diesen Listing einbauen
Isabell
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