Makro speichern/ Bezug felht
18.03.2007 23:57:00
ganz
habe einem Button folgendes Makro zugewiesen und wenn ich die Datei dann aufrufe, fehlt in einigen Zellen der Bezug.
Ich möchte aber eigentlich das genau der Text im Druckbereich so abgespeichert wird wenn ich auf den Button klicke.
Ausserdem wollte ich fragen ob man das Tabellenblatt auch automatisch als Worddatei speichern kann.
Wenn ich das.xls ind .doc ändere, dann kommen nur zeichen und kein text.
danke im voraus für die hilfe.
gruß
ralf
Sub speichern4()
Application.DisplayAlerts = False
ActiveSheet.Copy
Application.DisplayAlerts = True
With ActiveWorkbook
With ActiveSheet
.Range(.Columns(9), .Columns(Columns.Count)).Delete
.Range(.Rows(51), .Rows(Rows.Count)).Delete
.PageSetup.FitToPagesWide = 1 ' nur weegen der Kontonummern nötig
End With
.SaveAs Filename:="C:\Mandantenbriefe\" & Range("A26") & Range("A13") & ".xls"
.Close
End With
End Sub