Hallo PSCH,
in der Tabelle mit den Zahlen von 617001 - 617500 muss der Bereich mit Hilfe des Namens-Managers mit "Buttons" benannt werden.
In diesem Bereich werden alle Klicks als Button-Klick behandelt.
Nach der Bereichsbenennung wird auch der Befehl ...
Set nm = ThisWorkbook.Names(sName)
... korrekt ausgeführt.
Falls die nachzuladende Arbeitsmappe in einem anderen Verzeichnis befindet, muss die Zeile ...
strFilename = ThisWorkbook.Path & "\autoFile.xlsx"
... gegen einen festen Pfad und Dateinamen ausgetauscht werden. Bspw:
strFilename = "M:\Pfad A\\autoFile.xlsm"
LG, BigBen
|