Ich habe folgendes Problem: 2 Excelfiles, eines davon ein Masterfile, das immer größer werden soll, mit der Begrenzung "First" und "Last" bei den Tabellenblättern, damit alles hinzugefügte im Blatt "Summe" zusammengerechnet wird. Ein weiteres File "Aussendienst" welches pro Kunde neu ausgefüllt wird und der Name des Tabellenblattes nach dem Kundennamen geriert wird. Nach dem Ausfüllen soll das so umbenannte Tabellenblatt immer vor "Last" beim Master auf dem Server eingefügt werden.
So weit bin ich mal gekommen:
Umbenennen des Tabellenblattes nach dem Kundennamen (habe ich noch mit der Makroaufzeichnung gemacht):
Range("D7")
Selection.Copy
Sheets(1).Select
Sheets(1).Name = Range("D7")
~f~
Dann das Öffnen des Masterfiles am Server, da ich die Blätter nur einfügen kann wenn das File geöffnet ist:
~f~
Workbooks.Open Filename:="https://Masterfile" --> funktioniert auch
~f~
Nur habe ich dann das Problem, dass ich die Codenamen der Sheets verwendet habe und es mir beim Einfügen des Sheet(1) eben das Sheet(1) vom Masterfile einfügt und nicht das mit dem jeweiligen Namen des Kunden vom Aussendienst file.
~f~
Sheets(1).Select
Application.CutCopyMode = False
Sheets(1).Copy Before:=Workbooks( _"Masterfile").Sheets("Last")
Somit bräuchte ich eine Lösung, die Immer den jeweiligen Namen des Kunden als Tabellenblattname im Aussendienst File einträgt und dann dieses Tabellenblatt mit dem Namen des Kunden im Masterfile vor "Last" einfügt. Das Aussendienst File startet beim nächsten Kunden dann wieder bei null.
Ich hoffe ihr könnt mir helfen und bedanke mich.
Herzliche Grüße aus Österreich