title image


Smiley Hier mal mein Beispielcode, der bei mir (Excel 2000) funzt
Hallo Andy,

hier mein Code:





      

Sub TimerinStatusBar()



    Dim Timerstart As Date

    Dim Aminute, Asekunde

    Dim I As Long

    Timerstart = Time

    

    Aminute = Minute(Timerstart - Time)

    Asekunde = Second(Timerstart - Time)

    For I = 1 To 1000000

        Aminute = Minute(Timerstart - Time)

        Asekunde = Second(Timerstart - Time)

        Application.StatusBar = "Time: " & Aminute & ":" & Asekunde

    Next I

    Application.StatusBar = False



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0





und hier die zugehörige statusleiste:


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Anhang
Bild 11377 zu Artikel 538853

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: