Excel VBA Fortschrittsanzeige
05.03.2016 14:52:13
Claudio
Nachstehende Funktion dauert bei ca. 100 Sheets sehr lange (ca 1-2min) bis sie durch ist. Ich bastle schon lange an einer Progressbar, bekomme diese mit sheets bzw mittels dieser funktion nicht zum laufen. hat da jemand einen hilfreichen tipp?
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Public Sub Fusszeile()
Dim sh As Object
For Each sh In Sheets
With sh.PageSetup 'Schriftgroesse=8, Schriftart=Calibri, Farbe= KD4D4D4 (hellgrau)
.LeftFooter = "&8&""Calibri""&8&KD4D4D4" & "&P" & " von " & "&N"
.CenterFooter = "&8&""Calibri""&8&KD4D4D4" & "&A" & Chr(13) & "bla Sytems"
.RightFooter = "&8&""Calibri""&8&KD4D4D4" & Worksheets("Deckblatt").Range("J27")
End With
Next
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++