AW: VBA wäre besser
03.08.2004 18:15:04
andre
Hallo Karin,
hier ist erst mal ein Anfang in VBA. Das mit den Namen ist ja noch eine einfache Übung - ich habe allerdings erst mal "_New" im Namen ergänzt, was man am Ende ja auch ändern kann - nochmal saveas siehe Kommentar. Ob das Kopieren so einfach wird bezweifle ich allerdings. Wenn Du z.B. Formeln mit kopierst kann es passieren, dass die hinterher nicht mehr funktionieren weil Blattnamen nicht stimmen, die Ausgangszellen außerhalb des Blattes liegen und ...
Einiges an Code kannst Du mit Aufzeichnen rausfinden, lästige Meldungen lassen sich unterdrücken, die Originaldateien solltest Du vorher irgendwo sichern ...
Hier also der erste Schritt:
Sub Makro1()
' Makro am 03.08.2004 von SchauAn aufgezeichnet
Dim MyName As String, MyNewName As String
' Namen feststellen / festlegen
MyName = ActiveWorkbook.Name
MyNewName = Left(MyName, Len(MyName) - 4) & "_New.xls"
' neues Workbook erzeugen
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
MyNewName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
' Daten kopieren
Windows(MyName).Activate
Range("D6:D8").Select
Selection.Copy
Windows(MyNewName).Activate
Range("D6").Select
ActiveSheet.Paste
' Datei unter altem Namen speichern
Windows(MyName).Activate
' alte Datei ohne Speichern schließen
ActiveWorkbook.Saved = True
ActiveWindow.Close
Windows(MyNewName).Activate
ActiveWorkbook.SaveAs Filename:= _
MyName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub