ProgBar

Hallo zusammen,
ich habe in einem Ordner/Verzeichnis (VZ) vier untereinander verknüpfte Dateien (D1 D4) mit jeweils mehreren Tabellen (T1 Tn) und zwei "Makro"-Dateien (M1, M2).
Warum M1, M2?
Die ganze Geschichte wird von mehreren Anwendern genutzt.
D1 ist reine Datenerfassung, in den übrigen D's werden die Daten nach unterschiedlichen Kriterien ausgewertet bzw. für weitere Anwendungen zur Verfügung gestellt.
D1 hat zwar immer die gleiche Struktur, enthält aber unterschiedliche Daten. Bei Änderungen in einer VBA muss ich diese (ich bin faul) dann nur einmal in M1/M2 vornehmen, statt x-mal in D1.
Zurück zum Thema:
Beispiel:
In D1 kann ich das Makro

Sub Aktualisierung_aller_Dateien()
DatAkt
End Sub

aufrufen.
Dieses startet in M1 das Makro
M1_DatAkt,
das wiederum weitere Makros aufruft.
Die Prozedur dauert eine ziemlich LangeWeile, die ich gerne mit einem ProgressBar überbrücken würde der User weiß ja nicht, ob sich das System aufgehängt hat, oder ob alles nach Plan läuft.
Kann mir jemand weiter helfen?
Gruß, Rof

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Hajo,
Missverständnis?
Anbei "kl." :*) Auszug aus m. Makro.

Sub xyz()
'   AKTUALISIERUNG DER DATEIEN
'   Aufruf der Sub-Routine Input_MGL_aktualisieren
Windows("Input.xlsm").Activate
Application.Run "InpMAKROS.xlsm!Inp_MGL_Aktualisieren"
'   Aufruf der Sub-Routine Output_SerBrfDatenCopy
Path = ActiveWorkbook.Path
Application.Run "OutMAKROS.xlsm!Out_SerBrfDatenCopy"
'   Aufruf der Sub-Routine Output_xyzDat_erstellen
Application.Run "OutMAKROS.xlsm!Out_xyzDat_erstellen"
'   alle geöffneten Dateien speichern
Windows("Input.xlsm").Activate
Range("ErfHOME").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
ActiveWorkbook.Save
Windows("Output.xlsm").Activate
Sheets("MGL").Select
Range("MGLHOME").Select
ActiveWorkbook.Save
Windows("xyzdaten.xlsm").Activate
Sheets("SerBrfDat").Select
Range("SerBrfHOME").Select
ActiveWorkbook.Save
Windows("xyzOrga.xlsm").Activate
Sheets("Mädels").Select
Range("MädelsHOME").Select
ActiveWorkbook.Save
'   Abfrage, ob alle Dateien
'   geschlossen werden sollen. Der Anwender entscheidet (JA/NEIN)
i = MsgBox _
("Die Dateien [Output] und [xyz] " & vbCrLf & _
"wurden aktualisiert." & vbCrLf & _
"Alle Dateien, einschlielich [Input] wurden " & _
"gespeichert." & vbCrLf & vbCrLf & _
"Möchten Sie jetzt alle Dateien - außer [Input] und [InpMAKROS] - schließen?", _
vbYesNo + vbQuestion, "Bonus-Frage")
If i = 7 Then
Exit Sub
Else
ActiveWorkbook.Close
Windows("xyzdaten.xlsm").Activate
ActiveWorkbook.Close
Windows("Output.xlsm").Activate
ActiveWorkbook.Close
Windows("OutMAKROS.xlsm").Activate
ActiveWorkbook.Close
'        Windows("InpMAKROS.xlsm").Activate
'        ActiveWorkbook.Close
Windows("Input.xlsm").Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End If
End Sub

Gruß, Rolf
P.S. Es gibt sicherlich genialere Lösungen.

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread