Datei in 2 Versionen speichern, öffnen 1. Seite
19.07.2006 13:43:19
Anja
Ich habe eine Datei, die bis Spalte AF geht.
Inhalt sind Kunden-Daten, die teilweise vertraulich und nur für den internen Gebrauch sind. Die nicht vertraulichen Daten werden separat per Mail an
Lieferanten verschickt.
Ich möchte diese Datei 1x komplett haben, so wie sie ist, als auch eine Version davon, in der die Spalten AC-AF (vertrauliche Angaben) fehlen
(verbergen geht ja nicht, ist zu leicht zu knacken).
Ich möchte mir die Arbeit ersparen, die Datei manuell in zwei Versionen zu speichern und die jeweiligen Spalten zu löschen.
Super Lösung von Matthias:
Sub KopieSpeichern()
Const Tab1_Name = "Partnerfirmen"
Const Tab2_Name = "Lieferanschriften"
Const Kopie_Name = "Externes Partnerfirmen-Verzeichnis.xls"
Dim WB_neu As Workbook
Application.ScreenUpdating = False
Sheets("Partnerfirmen").Copy
Set WB_neu = ActiveWorkbook
On Error GoTo errhandler
Range("AC:AF").Delete
ThisWorkbook.Sheets("Lieferanschriften").Copy After:=WB_neu.Sheets("Partnerfirmen")
Application.DisplayAlerts = False
With WB_neu
.SaveAs FileName:="E:\__Excel\_Baer\Externes Partnerfirmen-Verzeichnis.xls"
.Close
End With
Das klappt auch alles, aber ich möchte gerne in der "abgespeckten" Version beim öffnen das 1. Arbeitsblatt "Partnerfirmen" sehen und nicht wie jetzt, das 2. Arbeitsblatt "Lieferanschriften".
Kann mir jemand helfen? Das wäre sooooo super!!!! :-))
Schon jetzt vielen vielen Dank!
Anja