Auf Knopfdruck soll ein bestimmtes Datenblatt in einem anderen Workbook gespeichert werden. Das tut es auch noch, doch statt die Spalte B:B zu löschen bleibt es einfach stehen.
Im Workbook Archiv.xls verwende ich seit kurzem übrigens auch Makros.
Was stimmt da nicht?
excelenten Dank
Eda
Sub Archiv()
Dim ArchName As String
Dim OFile As String
ArchName = Range("B15").Value
OrigFile = Range("B1").Value
Workbooks.Open FileName:="Archiv.xls"
Windows(OrigFile).Activate
Sheets("Daten").Select
Sheets("Daten").Copy Before:=Workbooks("Archiv.xls").Sheets("Info")
Range("B:B").Delete
Sheets("Daten").Name = "Arch_" & ArchName
Sheets("Info").Select
Range("A65536").End(xlUp).Offset(1, 0).Value = "Arch_" & ArchName
# by the way: Was müssten ich machen, damit es mit nicht ganz unten was einfügt sondern ganz rechts?
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Param").Select
End Sub