ich möchte während der Ausfürhung meines Makros eine Fortschrittsanzeige anzeigen lassen!
Mein Code
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Name <> ThisWorkbook.Name Then
Application.DisplayAlerts = False
wkb.Save
Application.DisplayAlerts = True
Else
End If
Next wkb
Das Makro speichert ne ganze Menge Mappen, ich habe es mit der Fortschrittssanzeuge aus der Beispielarbeitsmappe "3rainer8.xls"
Nur wie binde ich meine Code in diesen ein!
Das gleiche Möchte ich beim Öffnen der Mappen machen
Code z.B.:
If IstMappeOffen("\1.XLS") = False Then
Workbooks.Open Filename:=ThisWorkbook.Path & "2.xls", Password:=PSWD, UpdateLinks:=3
End If
--> hier wert in der Fortschrittsanzeige erhöhen
If IstMappeOffen("2.XLS") = False Then
Workbooks.Open Filename:=ThisWorkbook.Path & "2.xls", Password:=PSWD, UpdateLinks:=3
End If
--> hier wert in der Fortschrittsanzeige erhöhen
Leider hab ich keinen blassen Schimmmer wie ich dies realisieren kann!?
Danke schonmal für Eure Hilfe
Steffen