Progressbar fehlerhaft
18.11.2013 14:12:46
Albert
ich verwende folgende Schleife, um in eine Zelle Werte zu schreiben.
Das funktioniert wunderbar, bis ich gestern auf die Idee kam, eine Progressbar einzubauen. Nun haut es mir die Liste durcheinander.
Gefühlstechnisch und F8-drückend läuft die i-Geschichte ordnungsgemäß durch, nur die k-Progressbar-Geschichte will nicht.
Könnte mir von euch jemand weiter helfen?
x = Application.WorksheetFunction.Count(Sheets("Kontaktdaten").Range("B4:B" & Range("B200").End(xlUp).Row))
Me.ProgressBar1.Max = x
Me.ProgressBar1.Min = 0
For k = 1 To x
Me.ProgressBar1 = k
For Each i In Range(Cells(6, 2), Cells(Range("A200").End(xlUp).Row, 1))
Select Case i
Case "A"
Sheets("Hilfe").Select
Range(Cells(4, ActiveCell.Column), Cells(4, Ende)).Copy
Sheets("Regelschichtplan").Select
Cells(Selection.Row + 1, Selection.Column).Select
ActiveSheet.Paste
Case "B"
Sheets("Hilfe").Select
Range(Cells(5, ActiveCell.Column), Cells(5, Ende)).Copy
Sheets("Regelschichtplan").Select
Cells(Selection.Row + 1, Selection.Column).Select
ActiveSheet.Paste
Case "C"
Sheets("Hilfe").Select
Range(Cells(6, ActiveCell.Column), Cells(6, Ende)).Copy
Sheets("Regelschichtplan").Select
Cells(Selection.Row + 1, Selection.Column).Select
ActiveSheet.Paste
Case "D"
Sheets("Hilfe").Select
Range(Cells(7, ActiveCell.Column), Cells(7, Ende)).Copy
Sheets("Regelschichtplan").Select
Cells(Selection.Row + 1, Selection.Column).Select
ActiveSheet.Paste
Case "E"
Sheets("Hilfe").Select
Range(Cells(8, ActiveCell.Column), Cells(8, Ende)).Copy
Sheets("Regelschichtplan").Select
Cells(Selection.Row + 1, Selection.Column).Select
ActiveSheet.Paste
End Select
Application.CutCopyMode = False
Next i
Next k
Danke und Gruß
A.