savechanges Methode mit ActiveX
04.06.2019 14:13:23
Sandra
mal aus Interesse blöd gefragt. (Excel Version 2016)
Mit dem Formularsteuerlement lief dieser Code einwandfrei:
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(6)
Sheets(" Tabelle 1").Select
Sheets(" Tabelle 1").Name = "Druckschriften_c"
Sheets("Material Hauptstand").Select
WBQuelle.Close savechanges = False
With ActiveWorkbook.Sheets("Druckschriften_c").Tab
.Color = 16737792
.TintAndShade = 0
Sheets("druckschriften_c").Visible = False
End With
End Sub
Das ActiveX-Steuerlement meckert über die savechanges Methode. Lasse ich diese weg, funktioniert wieder alles wie gewünscht.
Mich würde interessieren warum das so ist und welchen Befehl ich ggf. nutzen muss. Google hilft mir leider nicht :(
LG Sandra