Blatt kopieren
03.10.2008 23:04:00
Karsten
folgenden Code zum Tabellenblatt speichern liegt vor. Nun will ich aber nicht das ganze Blatt speichern, sondern nur einen Bereich des Blattes. Ich komme irgendwie nicht weiter, kann mir jemand helfen?
Sub BlattSpeichern()
Dim strTBName As String, strWBName As String
Dim strMeldung As String, strTitel As String
Dim strVorschlag As String
Dim strVerzeichnis As String
Dim RG As String
Dim Druck As Range
RG = ActiveSheet.Range("B9").Value
'Bereich der gespeichert werden soll
'Set Druck = ActiveSheet.Range("A1:F42")
'Verzeichnis festgelegt
ChDrive "C"
ChDir "C:\"
'Inputbox
strMeldung = "Dateiname: "
strTitel = "Blatt Export"
strVorschlag = RG
'Blattname/Dateiname festlegen/Fehlerabfrage
strTBName = ActiveSheet.Name
strWBName = InputBox(strMeldung, strTitel, strVorschlag)
If strWBName = "" Then Exit Sub
'Blatt kopieren
ActiveSheet.Copy
'Workbook neu speichern und schließen
ActiveWorkbook.SaveAs strWBName
ActiveWorkbook.Close
End Sub
Gruß
Karsten