Anzeige noch zu ladener Arbeitsblätter
12.09.2021 16:04:20
Michael
ich bräuchte mal etwas Hilfe.
Zum Problem:
Userform mit Label-Feld
In einem Label-Feld soll angezeigt werden, wieviele Arbeitsblätter noch zu laden sind.
Nach jedem geladenen Arbeitsblatt soll das Label-Feld aktualisiert werden.
Jedes Arbeitsblatt wird mit der GetObject Methode geladen, also nicht sichtbar.
Danach Aktualisierung im Label-Feld "Nur noch 8 Arbeitsblätter".
usw.
Label-Feld wird nicht aktualisiert "zumindest ist die Aktualisierung nicht sichtbar".
Wo ist mein Gedankenfehler bzw. warum wird das Label-Feld nicht aktualisiert.
Für eine Lösung und Erklärung wäre ich sehr dankbar.
Anbei kurzer Beispielcode:
UserForm mit Schaltfläche und Label
Private Sub CommandButton1_Click()
GetObject (ThisWorkbook.Path & "\Mappe2.xlsx")
Label1.Caption = "Noch 8 von 10 Dateien"
GetObject (ThisWorkbook.Path & "\Mappe3.xlsx")
Label1.Caption = "Noch 7 von 10 Dateien"
GetObject (ThisWorkbook.Path & "\Mappe4.xlsx")
Label1.Caption = "Noch 6 von 10 Dateien"
GetObject (ThisWorkbook.Path & "\Mappe5.xlsx")
Label1.Caption = "Noch 5 von 10 Dateien"
GetObject (ThisWorkbook.Path & "\Mappe6.xlsx")
Label1.Caption = "Noch 4 von 10 Dateien"
GetObject (ThisWorkbook.Path & "\Mappe7.xlsx")
Label1.Caption = "Noch 3 von 10 Dateien"
GetObject (ThisWorkbook.Path & "\Mappe8.xlsx")
Label1.Caption = "Noch 2 von 10 Dateien"
GetObject (ThisWorkbook.Path & "\Mappe9.xlsx")
Label1.Caption = "Noch 1 von 10 Dateien"
GetObject (ThisWorkbook.Path & "\Mappe10.xlsx")
'Unload Me
End Sub
Gruß Michael
Anzeige