Zellbereich ausgelesen
Karsten
hab mir einen Code gebastelt, indem ich einen Druckbereich festlege und diesen in ein neues Blatt kopiere ohne das die Formeln übernommen werden.
Hier der Code:
Sub BlattSpeichern()
Dim Bereich As Variant
Dim strTBName As String, strWBName As String
Dim strMeldung As String, strTitel As String
Dim strVorschlag As String
Dim strVerzeichnis As String
'Verzeichnis festgelegt
ChDrive "F"
ChDir "F:\Name\09_10\"
'Inputbox
strMeldung = "Dateiname: "
strTitel = "Blatt Export"
strVorschlag = "Name"
'Blattname/Dateiname festlegen/Fehlerabfrage
strTBName = ActiveSheet.Name
strWBName = InputBox(strMeldung, strTitel, strVorschlag)
If strWBName = "" Then Exit Sub
'Blatt kopieren
Bereich = ActiveSheet.PageSetup.PrintArea
ActiveSheet.Copy
With Range("Bereich")
.Value = .Value
End With
'Workbook neu speichern und schließen
ActiveWorkbook.SaveAs strWBName
ActiveWorkbook.Close
End Sub
Es entsteht ein Laufzeitfehler für das Range Objekt. Kann mir jemand helfen diesen abzustellen?Danke!
Gruß