Mit folgender Frage wende ich mich an Euch - es geht um Datensicherung per Schaltfläche, die an sich gut funktioniert:
Sub DATEIENSICHERUNG()
Dim myFileSystemObject As Object
Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
'Kopie der einzelnen Dateien von A nach B:
myFileSystemObject.CopyFile "F:\A IONENCHROMATOGRAPHIE\BACKUPs\SEQUENZEN IC ZUCKER 2006.cmb", "S:\DATEN\WW\DOKS\REF10\A IONENCHROMATOGRAPHIE\BACKUPs\SEQUENZEN IC ZUCKER 2006.cmb"
'usw.
myFileSystemObject.CopyFile "S:\DATEN\WW\DOKS\REF10\A IONENCHROMATOGRAPHIE\IC ZUCKER Backup\IC ZUCKER 15.xls", "F:\A IONENCHROMATOGRAPHIE\IC ZUCKER Backup\IC ZUCKER 15.xls"
Set myFileSystemObject = Nothing
Workbooks("SICHERUNG DATEIEN.xls").Close SaveChanges:=True
End Sub
Meine Frage: ich soll für alle Kollegen (jeder an seinem PC) so eine Datei mit einer Schaltfläche programmieren, mit der das Sicherungsmakro gestartet wird. Die Kollegen sollen aber individuell ihre Pfade selber eingeben - allerdings ohne den Code in VBA selbst schreiben zu müssen (Unsicherheit gegenüber VBA). Gibt es eine Möglichkeit, die Pfade z.B. in Excelzellen zu schreiben, deren Inhalt dann automatisch als VBA-Code übernommen und das so erzeugte Makro bei Tastendruck durchgeführt wird ?
Vielen Dank im voraus
Wolfgang