ich habe mir mit Hilfe von Beiträgen aus diesem Forum folgendes Makro erstellt:
Sub DateiKopieren()
Dim Datei
Dim sicherung
Dim kst_stelle
Dim strVerzeichnis
kst_stelle = Range("B1")
Datei = "Personalkostenplanung_HSR_"
sicherung = Datei & kst_stelle & ".xls"
strVerzeichnis = sicherung
ActiveWorkbook.Worksheets("Tabelle1").Copy
ActiveWorkbook.SaveCopyAs strVerzeichnis
End Sub
Das Makro macht die gewünschte Aufgabe auch richtig, d.h., es kopiert das Blatt 'Tabelle1' in eine neue Datei und speichert diese unter dem vordefinierten Namen.
Allerdings wird automatisch noch eine neue Mappe mit der fortlaufenden Bezeichnung z.B. 'Mappe5' geöffnet. Ich weiß leider nicht, wodurch diese noch automatisch geöffnet wird.
Weiß jemand Rat?
Gruß und schon im Voraus vielen Dank
Thorsten