Application.DisplayStatusBar zum sehen?
ing.grohn
in einem Beitrag hab ich etwas über Application.DisplayStatusBar gelesen
Wollte ich ausprobieren!
Die Hilfe gibt mir folgendes Beispiel (statt For wird allerdings eine Datei geöffnet)
ich seh aber nichts .
Was muß ich ändern
Sub test()
Dim oldStatusBar
Dim i As Long
Sheets("tabelle1").Select
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
For i = 1 To 64000
Cells(i, 1).Value = Cells(i, 2).Value
Next i
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
Mit freundlichen Grüßen
Albrecht
Anzeige