Bereich speichern und Formatierungen erhalten?
05.10.2007 12:46:00
InaB
ich wünsche euch einen schönen Tag und möchte um eure Hilfe bitten...
Per VBA möchte ich den Tabellenbereich A1 - I72 in einer neuen Excel-Datei speichern.
Speicher-Verzeichnis und Dateiname wird aus der Zelle A4 ausgelesen.
Das klappt auch mit unten gezeigtem Code-Beispiel. Allerdings gehen die Formatierungen der Zeilen und Spalten verloren.
Mein Problem: Die Formatierungen der Zellen sollen erhalten bleiben!
Es wäre sehr schön, wenn ihr mein Code-Beispiel "umbasteln" könntet (noch mangelnde VBA-Kenntnisse - gebe mir aber Mühe).
Danke und liebe Grüsse, InaB
Sub Sichern()
Dim wkbName as String, wkbNeu as String, wksName As String
wkbName = ThisWorkbook.Name
wksName = ActiveSheet.Name
Workbooks.Add
wkbNeu = ActiveWorkbook.Name
Workbooks(wkbName).Sheets(wksName).Range("A1:I72").Copy Workbooks(wkbNeu).Sheets(1).Range("A1" _
)
Dim pfad As String
pfad = Workbooks(wkbName).Sheets(wksName).Range("A4")
Workbooks(wkbNeu).SaveAs Filename:= pfad
ActiveWorkbook.Close
End Sub