Alle Dateien eines Ordners - UserForm austauschen...
In allen Dateien eines Ordners (ohne Unterordner) eine geänderte UserForm importieren.
In all files of a folder (without subfolder) import a changed UserForm.
Hier noch eine Beispieldatei / Here's a sample file:
Alle Dateien eines Ordners - UserForm austauschen...[ZIP 250 KB]
OptionExplicit'--------------------------------------------------------------------------' Module : Modul1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 20.02.2017' Purpose : Alle Dateien eines Ordners - UsrForm austauschen...'--------------------------------------------------------------------------SubMain()' Name der Ex- bzw. ImportdateiConststrTMPAsString="uf.frm"DimstrFileNameAsStringDimstrPathAsString' Wenn ein Fehler auftritt gehe zu der angegebenen SprungmarkeOnErrorGoToFin' Bildschirmaktualisierung ausschaltenApplication.ScreenUpdating=False' Pfad anpassen!!! Im Moment der Pfad mit der Datei mit diesem MakrostrPath=ThisWork…
In all files of a folder (without subfolder) import a changed UserForm.
Hier noch eine Beispieldatei / Here's a sample file:
Alle Dateien eines Ordners - UserForm austauschen...[ZIP 250 KB]
OptionExplicit'--------------------------------------------------------------------------' Module : Modul1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 20.02.2017' Purpose : Alle Dateien eines Ordners - UsrForm austauschen...'--------------------------------------------------------------------------SubMain()' Name der Ex- bzw. ImportdateiConststrTMPAsString="uf.frm"DimstrFileNameAsStringDimstrPathAsString' Wenn ein Fehler auftritt gehe zu der angegebenen SprungmarkeOnErrorGoToFin' Bildschirmaktualisierung ausschaltenApplication.ScreenUpdating=False' Pfad anpassen!!! Im Moment der Pfad mit der Datei mit diesem MakrostrPath=ThisWork…