Bereich aus Tabellenblat in neue Datei einfügen
Werner
könnt Ihr helfen.Ich habe hier einen Code von Beate Schmitz Geschrieben am: 03.10.2008 23:32:05
1)Der Code kopiert jedoch das Gesamte Blatt und nicht nur den Bereich A1:G48.
2)Wenn ich 'Columns("H:T").Delete aktiviere löscht er die Spalten im Orginalblatt und nicht auf dem kopiertenBlatt
Zusammenfasssung: Ich möchte das der bereich A1:G48 in eine neue zu erstellende Datei mit dem Namen aus O12 kopiert wird.
Weiß jemand warum das mit diesem Code nicht 100% klappt?
Viele Dank im voraus
Werner S
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
'Zelle für Dateiname
RG = ActiveSheet.Range("O12").Value
'Bereich der gespeichert werden soll
Set Druck = ActiveSheet.Range("A1:G48")
'Verzeichnis festgelegt
ChDrive "C"
ChDir "C:\temp"
'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
'Columns("H:T").Delete
'Rows("43:65536").Delete
'Range("A1").Select
'Workbook neu speichern und schließen
ActiveWorkbook.SaveAs strWBName
ActiveWorkbook.Close
End Sub