Tabellenblatt Speichern
20.09.2006 11:57:21
vasko
Ich möchte einzelne Tabellenblätter unter einem neuen Namen speichern.
Nachstehendes FBA habe ich für diesen Zweck estellt, leider funktioniert es nicht. Wer kann helfen?
Gruss Vreni
Sub Speichern()
ActiveWorkbook.Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4")).Copy
ActiveWorkbook.SaveAs (Tabelle1.[A1] & " " & Blatt2.[A2] & _
".xls")
End Sub
Anzeige