Ich habe ein kleines Problem und hoffe mal wieder, dass ihr mir weiterhelfen könnt.
Ich habe eine relativ große Excel-Tabelle (160 Spalten, 120.000 Zeilen).
Nun lasse ich per VBA für 10 Spalten und alle 120.000 Zeilen einfache Berechnungen durchführen. Da dies etwas dauert habe ich mir mit einer Userform einen Fortschriftsbalken gebaut. Leider hängt sich der Fortschrittsbalken nach ca. 1/3 des Weges auf (im Userform Fenster steht "Keine Rückmeldung"). Nachdem die Berechnungen beendet sind, verschwindet das Fenster einfach (was es ja auch tun soll).
Hier ist mein Code (ja ich weiß, die Variablen sind noch nicht deklariert :-)):
Private Sub CommandButton1_Click()
i = 3
x = 0
Do While Cells(i, 1) ""
Cells(i, 21) = WorksheetFunction.VLookup(Cells(i, 2), Sheets("Basis").[A2:V723], 3, False)
Cells(i, 23) = Cells(i, 2) & Cells(i, 15)
Cells(i, 24) = Round(Cells(i, 20) + Cells(i, 21) + Cells(i, 22), 2)
Cells(i, 26) = WorksheetFunction.VLookup(Cells(i, 2), Sheets("Basis").[A2:V915], 5, False)
If i = 3 Then x = 1
If i = 11250 Then x = 2
If i = 22500 Then x = 3
If i = 33750 Then x = 4
If i = 45000 Then x = 5
If i = 56250 Then x = 6
If i = 67500 Then x = 7
If i = 78750 Then x = 8
If i = 90000 Then x = 9
If i = 101250 Then x = 10
ProgressBar1.Max = 10
ProgressBar1.Min = 0
ProgressBar1.Value = x
i = i + 1
Loop
i = 3
Unload UserForm1
UserForm1.Hide
End Sub
Kann mir jemand weiterhelfen?!
Warum hängt sich die Userform nach ca. 1/3 auf und wie kann ich das beheben?
Herzlichen Dank und schöne Grüße
Lisa