Export von ausgeblendetem Blatt
03.03.2017 11:43:04
ausgeblendetem
ich möchte ein verstecktes Tabellenblatt (xlSheetVeryHidden) exportieren.
Den Code hierfür habe ich so geschrieben. jedoch funktioniert das nur bei eingeblendetem Tabellenblatt.
An euch Profis, ich weis das ich das Sheet nicht mit "Active..." ansprechen darf... aber ich kriege das mit "With" nicht hin :-/
Ich bitte euch um eure Hife.
Hier mein Code:
____
Private Sub CommandButton1_Click()
Dim strFile As String
strFile = "Email-Liste_Datenexport"
strFile = Application.GetSaveAsFilename(InitialFileName:=strFile, _
fileFilter:="Excel Files (*.xlsx), *.xlsx")
If strFile = "Falsch" Then Exit Sub
Workbooks("Email Controlling Liste v4.0.xlsm").Sheets("Gesamtübersicht").Copy
With ActiveWorkbook
.Sheets(1).Name = "Datenextrakt Email-Controlling"
.SaveAs strFile
.Close
End With
End Sub
_________________________________________________________________________________
Vielen Dank und viele Grüße
Christian
Anzeige