Posts

Es werden Posts vom Februar, 2017 angezeigt.

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…