Fortschrittsanzeige
27.04.2016 18:05:06
dani_boy
da mein Code etwas Zeit zum Ausführen benötigt und ich dem User nicht das Gefühl geben will das Excel sich aufgehangen hat würde ich gerne eine Fortschrittsanzeige einbauen.
Ich habe einige Anleitungen dazu online gefunden verstehe allerdings noch nicht so ganz wie ich meinen Code darein bekomme:
Folgende Funktionen rufe ich nacheinander auf:
Sub Test()
Lösche_Inhalt_BaWü
Lösche_Inhalt_Bayern
Lösche_Inhalt_Mitte
Lösche_Inhalt_Nord
Lösche_Inhalt_Ost
Lösche_Inhalt_West
Loesche_Inhalt_Gesamt
BaWü_auslesen
Bayern_auslesen
Mitte_auslesen
Nord_auslesen
Ost_auslesen
West_auslesen
Loesche_Inhalt_Gesamt
Call Worksheets("BaWü").Lade_BaWü
Call Worksheets("Bayern").Lade_Bayern
Call Worksheets("Ost").Lade_Ost
Call Worksheets("Nord").Lade_Nord
Call Worksheets("Mitte").Lade_Mitte
Call Worksheets("West").Lade_West
End Sub
Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
Dim i As Long
With UserForm1
.ProgressBar1.Max = 10
.ProgressBar1.Min = 0
For i = 1 To 10
.ProgressBar1 = i
Application.Wait Now + TimeSerial(0, 0, 1)
Next i
End With
End Sub
Für Anregungen bin ich dankbar.
Grüße Daniel