title image


Smiley Re: Suche Timer von 3 - 10 Sekunden
Hallo Hajo

... ich schnall's nicht! mein us_msg bleibt weiterhin geöffnet!

was mach ich falsch?





meine Sub sieht wiefolgt aus:



Sub zeiG_US_msg()



Load us_msg 'Formular mit Anzeige des Tabellen-Status

us_msg.Label1.Caption = ActiveWorkbook.Name

us_msg.Label2.Caption = ActiveSheet.Name

us_msg.Label3.Caption = strUserName

us_msg.Label4.Caption = AnzahlCharts



us_msg.Show 'hier erscheint die UserForm



danach komm ich nicht weiter!



?? Timer until 5 Sekunden

?? Loop

??

?? us_msg.hide

?? unload us_msg



End Sub



Vielen Dank, Gruss Paul Sutter (alias modulo)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: