Zurück zur "Startseite"
21.09.2017 13:56:31
Nordwestler
eine vermutlich einfache Frage für die Füchse unter den Forianern, für mich leider nicht!
Mit einem Schalter in Datei X auf Tabellenblatt1 mit unten stehendem Code werden aus Tabellenblatt "Exportdaten" diese in eine andere Datei Y kopiert, gespeichert und geschlossen. Klappt wunderbar!
Nun ist aber in der Steuerungsdatei X das Tabellenblatt "Exportdaten" aktiv und die exportierten Daten sind noch markiert. Nach dem Kopiervorgang soll aber wieder Tabelle1 mit der zuletzt ausgewählten Zelle sichtbar sein.
Wie lässt sich Excel dazu überreden?
Viele Grüße aus dem endlich mal sonnigen Nordwesten
Reinhard
Sub Tabellenbereich_in_externe_Datei_kopieren_und_unter_neuem_Namen_speichern()
Dim strDateiname As String
Sheets("Exportdaten").Select
Range("a1:bz300").Select
' im aktiven Tabellenblatt die zu kopierenden Zellen definieren und kopieren
Selection.Copy
' Zieldatei öffnen
Workbooks.Open Filename:=Environ("USERPROFILE") & "\Desktop\Exceltest\Master\VP Neu.xlsx"
' Ziel zum Einfügen definieren
Sheets("Importdaten").Select
Range("a1:bz300").Select
' Zwischenablage als Werte einfügen
Cells.PasteSpecial Paste:=xlPasteValues
' Startseite der Zieldatei festlegen
Sheets("Menü").Select
' Die Zelle(n) definieren, aus denen der neue Dateiname ausgelesen werden soll
strDateiname = Range("a1").Value & ".xlsx"
ActiveWorkbook.SaveAs Filename:=Environ("USERPROFILE") & "\Desktop\Exceltest\Ergebnisse\" & _
_
strDateiname
Application.CutCopyMode = False
ActiveWorkbook.Close
End Sub