Das Archiv des Excel-Forums

Blätter kopieren in Datei mit Wunschnamen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Blätter kopieren in Datei mit Wunschnamen
von: Mathieu

Geschrieben am: 12.10.2003 16:24:29

Hallo alle dort draußen,
Es gibt so Tage da denke ich -> ich bin irgendwie falsch aufgestanden.
Kann mir jemand bitte helfen. Mein Problem:
Ich kopiere aus einer Datei(Name: RDB) ein Blatt in eine neu hinzugefügte Datei und speichere diese unter einen Namen nach Wunsch (über InputBox). Dann will ich, nach Ablauf von Prozedur xy (unrelevant für mein Problem) wieder ein Blatt aus der Datei RDB in die Datei mit dem Wunschnamen kopieren.
Leider klappt mein Code nicht.
Danke für eure Mühe.
Gruß Mathieu
Hier mein Ansatz:


Sub urs2()
Workbooks.Add Template:=xlWorksheet
mno = ActiveWorkbook.Name
Windows("Rdb.xls").Activate
Sheets("DBlatt").Copy Before:=Workbooks(mno).Sheets(1)
Dateiwunschname = InputBox("Geben Sie den für diese Zusammenstellung gewünschten Dateinamen ein")
ActiveWorkbook.SaveAs _
Filename:=Dateiwunschname
'der nachfolgende würde gehen,ein zurückgreifen auf Dateiwunschname geht dann aber nicht mehr
'  Sheets("DBlatt").Copy Before:=Workbooks("frah.xls").Sheets(1)
'der nachfolgende wäre mein Wunsch,klappt leider nicht, warum ?
Sheets("DBlatt2").Copy Before:=Workbooks(Dateiwunschname).Sheets(1)
End Sub


Bild


Betrifft: AW: Blätter kopieren in Datei mit Wunschnamen
von: heinz
Geschrieben am: 12.10.2003 16:30:33

fehlt dann vielleicht die erweiterung (.xls)?


Bild


Betrifft: AW: Blätter kopieren in Datei mit Wunschnamen
von: Mathieu
Geschrieben am: 12.10.2003 16:38:04

Hallo Heinz,
wie schreibst Du es dann ?
Dateiwunschname.xls geht nicht
"Dateiwunschname".xls auch nicht

Probiere es einmal aus, damit Du verstehst was ich meine und vielleichtmein kleinse Problem gelöst wird

Gruß
Mathieu


Bild


Betrifft: AW: Blätter kopieren in Datei mit Wunschnamen
von: geri
Geschrieben am: 12.10.2003 16:51:44

Hallo Mathieu

versuch es mal so

ActiveWorkbook.SaveAs Filename:=Dateiwunschname & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

tausche bei Dir SAVEAS aus

gruss geri


Bild


Betrifft: AW: Blätter kopieren in Datei mit Wunschnamen
von: heinz
Geschrieben am: 12.10.2003 16:51:36

habs so gemacht und bei mir gehts mal ohne fehlermeldung:

Dateiwunschname & ".xls"


Sub urs2()
Dim mno, Dateiwunschname
Workbooks.Add Template:=xlWorksheet
mno = ActiveWorkbook.name
Windows("Rdb.xls").Activate
Sheets("DBlatt").Copy Before:=Workbooks(mno).Sheets(1)
Dateiwunschname = InputBox("Geben Sie den für diese Zusammenstellung gewünschten Dateinamen ein")
ActiveWorkbook.SaveAs _
Filename:=Dateiwunschname
'der nachfolgende würde gehen,ein zurückgreifen auf Dateiwunschname geht dann aber nicht mehr
'  Sheets("DBlatt").Copy Before:=Workbooks("frah.xls").Sheets(1)
'der nachfolgende wäre mein Wunsch,klappt leider nicht, warum ?
Sheets("DBlatt").Copy Before:=Workbooks(Dateiwunschname & ".xls").Sheets(1)
End Sub



Bild


Betrifft: AW: Blätter kopieren in Datei mit Wunschnamen
von: Mathieu
Geschrieben am: 12.10.2003 17:04:24

Danke Heinz,
es klappt.
wie gesagt manchmal ist es das Brett vor meinem Kopf.
Schönen Tag noch
Mathieu


 Bild

Excel-Beispiele zum Thema " Blätter kopieren in Datei mit Wunschnamen"

Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download