ich möchte in VBA in einem Makro für Outlook das hochzählen eine Integer-Variablen
am Bildschirm anzeigen, quasi als Fortschrittsindikator. Wie geht das?
Vielen Dank für einen Tipp
Sub Test()
Dim zaehler As Long, ZaehlerMax As Long
ZaehlerMax = 100000
Application.DisplayStatusBar = True
For zaehler = 1 To ZaehlerMax
Application.StatusBar = "Datei " & zaehler & " von " & ZaehlerMax & " wird bearbeitet"
'Code für Datei löschen
Next
'Statusbar wieder auf Standardanzeige zurücksetzen
Application.StatusBar = False
MsgBox "Fertig!"
End Sub
Gruß
Franz