title image


Smiley Re: Fortschrittsanzeige
Hallo CharlyAn deiner stelle würde ich mit zwei Ladebalken arbeitenauf deiner Userform1 erstelle ein Label, Label2 im Cod Label1, Label2Eigenschaften der LabelBackColor, Schaltflächendarstellung deine Farbe für LadebalkenWidth = 0Caption=""im Cod wird davon ausgegangen das die Label max 280 lang sein darf. Dies mußt du entsprechend der Größe deiner Userform anpassen. ändere deinen Cod wie folgtIf TypeName(ActiveSheet) "Worksheet" Then Exit SubCells.ClearApplication.ScreenUpdating = FalseCounter = 1RowMax = 100ColMax = 25For r = 1 To RowMaxLabel1.Width = Label1.Width + 280 / RowmaxDoEventsLabel2.Width =0For c = 1 To ColMaxLabel2.Width = Label2.Width + 280 / ColmaxDoEventsdas müßte passen ich habs selber nicht probiertGruß Hajo

 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: