Nur bestimmten Zellbereich kopieren u. exportieren
17.03.2009 14:41:11
Bernd
ich habe diesen Code für das Exportieren bestimmter Tabellenblätter aus dem Forum-Archiv.
Wer wäre bitte so nett und würde den Code dahingehend anpassen, dass nur die Zellen A1:P36 des Sheets "Export" kopiert werden?
Wenn es nicht zu unverschämt ist, wäre ich an nachstehender Ergänzung auch brennend interessiert.
Alle im kopierten und exportierten Zell-Bereich enthaltenen Formeln durch Werte ersetzen und diese Werte auf zwei Stellen nach dem Komma runden.
Herzlichen Dank im voraus.
Grüße
Bernd
Sub BlattKopieren()
Dim strFile As String
strFile = "MAPPE1_DATEN" 'Dateinamen vorgeben!
strFile = Application.GetSaveAsFilename(initialfilename:=strFile, _
fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
If strFile = "Falsch" Then Exit Sub
Workbooks("Mappe.xls").Sheets("EXPORT").Copy
With ActiveWorkbook
.Sheets(1).Name = "Exportdaten"
.SaveAs strFile
'.Close 'wenn die neue Mappe geschlossen werden soll!
End With
End
Sub