Habe ein kleines Problem:
Habe ein vorgefertigtes Arbeitsblatt, in dem dann verschiedenste Daten eingetrage werden.
Diese Daten transferiere ich dann in ein Tabellenblatt einer neuen Arbeitsmappe, und will
diese neue Arbeitsmappe dann mit "Speicher unter" neu abspeichern. Nur das gelingt einfach nicht.
Bis zum Aufrufen des "Speicher unter" Dialoges funktioniert alles. Nur gespeichert wird nix.
Kann mir jemand helfen?
Public Sub Speichern()
nameroh = ActiveWorkbook.Name
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Nameneu = ActiveWorkbook.Name
Workbooks(nameroh).Worksheets("Bestellung").Range("A:G").Copy _
Destination:=Workbooks(Nameneu).Worksheets(1).Range("A:G")
Workbooks(Nameneu).Activate
Range("a1").Select
With ActiveSheet.PageSetup
.TopMargin = Application.CentimetersToPoints(1.5)
.BottomMargin = Application.CentimetersToPoints(1.3)
.LeftMargin = Application.CentimetersToPoints(2)
.RightMargin = Application.CentimetersToPoints(1)
.FooterMargin = Application.CentimetersToPoints(1.3)
.LeftFooter = "Dieser Bestellung liegen unsere Geschäftsbedingen März '03 zu Grunde."
End With
Dateinname = Application.GetSaveAsFilename(, "Excel-Tabelle (*.xls), *.xls")
If Dateiname = False Then
Else
ActiveWorkbook.Save
End If
End Sub
Gruß
Christian