ich habe in meiner Datei bereits die Möglichkeit, externe Tabellenblätter zu kopieren, so das die Daten weiterverarbeitet werden.
Den Code dafür hatte ich mir damals aus dem Internet zusammen geschustert und auf meine Datei angepasst. Das funktioniert soweit. Allerdings hätte ich ganz gerne das die externe Datei sich danach wieder automatisch schließt.
Sub kopieren_druckschriften()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSZiel As Worksheet
Set WBZiel = ThisWorkbook
Application.ScreenUpdating = False
ExportDatei = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Bitte die Datei zum _
_Kopieren öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
Set WBQuelle = Workbooks.Open(ExportDatei)
WBQuelle.Sheets(" Tabelle 1").Copy Before:=WBZiel.Sheets(35)
Sheets(" Tabelle 1").Select
Sheets(" Tabelle 1").Name = "druckschriften_c"
Sheets("Druckschriften").Select
With ActiveWorkbook.Sheets("druckschriften_c").Tab
.Color = 16737792
.TintAndShade = 0
End With
End Sub
ich habe schon rum gesucht und es damit probiert:
Workbooks("ExportDatei").Close savechanges=no
aber leider funktioniert das so nicht. Da die Datei immer eine andere sein kann, kann ich mich nicht auf einen Dateinamen festlegen.
Stehe da grad etwas auf dem Schlauch.
Danke für Eure Mühe
Sandra