Makro
08.03.2007 10:25:46
ganz
habe folgendes Makro in der Tabelle, soweit so gut.
In der dann gespeicherten Tabelle liegen nun einige Daten der Spalte H ausserhalb des Duckbereichs.
Wie bekomme ich die Daten ( es ist ein Brief) automatisch in den Druckbereich gespeichert?
Ausserdem möchte ich das die Tabelle automatisch unter dem Namen in A31 und dem Ort in A16 gespeichert werden.
Es sollen aber keine 2 Dokumente gespeichert werden sondern ZB. in A31 steht: Müller und in A16 Berlin
Dann soll der speichername Müllerberlin heißen.
Geht das und kann mir jemand helfen?
Ich bedanke mich im voraus und viele Grüße aus Bonn
ralf
Sub Speichern()
Range("A1:H50").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
Application.DisplayAlerts = False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="C:\Mandantenbriefe\" & Range("A31") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\Mandantenbriefe\" & Range("A31") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub