Hier nochmals die Antwort zum nachvollziehen...
============================================
Hallo Andreas!
Wo lag der Fehler?
Achte wieder auf die Namen!
Sub BlattKopieren()
Dim strFile As String
strFile = "MAPPE1_DATEN" 'Hier kanst du den Dateinamen vorgeben!
'Auch mit Pfad!
'"C:\Eigene Dateien\MAPPE1_DATEN"
strFile = Application.GetSaveAsFilename(initialfilename:=strFile, _
fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
If strFile = "Falsch" Then Exit Sub
Workbooks("Mappe.xls").Sheets("EXPORT").Copy
With ActiveWorkbook
.Sheets(1).Name = "Exportdaten"
.SaveAs strFile
'.Close 'wenn die neue Mappe geschlossen werden soll!
End With
End
Sub
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Hallo Sepp,
erstmals zu deiner Frage "Wo lag der Fehler" - Ich habe noch nicht abgespeichert gehabt (ich Idiot)
aber jetzt zu der anderen Sache.....
echt megageil !!!!!!!!!!!!!!!!!!!!!!
superfreu !!!!!!!!!!!!!!!!!!
gigantomanisch!!!!!!!!!!!
Wie DU schon geschrieben hast, brauche ich tatsächlich einen PFAD bei
strFile = "MAPPE1_DATEN"
Kann ich denn auch einen Dateinamen vergeben, der sich auf eine Zelle der alten Tabellenblatt "Daten" bezieht (oder neuen, ist egal - währe dann das Tabellenblatt"Export"daten")
z.B. Zelle G103 und J102
d.h. der vorgeschlagene Dateiname heißt dann: ´InhaltZelleG103´_´InhaltZelleG103´.xls
Danke und nochmals Danke
Grüße
Andy