Speichern einer neuen Datei mit VBA
30.08.2007 13:50:30
Karsten
ich habe für den erfahrenen Anwender wohl ein eher einfaches Problem. Ich habe ein Makro, das eine neue Datei erzeugt, diese mit Daten füllt und dann speichern soll. Das Erstellen und Befüllen funktioniert problemlos. Nur das Speichern will nicht, da Excel immer die Datei speichert, in der sich das Makro befindet. Die neu erstellte Datei wird dabei nicht gespeichert. Zum Speichern benutze ich:
Sub Speichern()
ChDir "\"
ChDrive "c:\Desktop"
Dateiname = Application.GetSaveAsFilename _
("Dateiname.xls", "Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
ThisWorkbook.SaveAs Dateiname
MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname
End Sub
Wie kann ich Excel nun beibringen, die Datei zu "wechseln"? Ein Befehl mit dem Makrorekorder funktioniert nicht, da es ja mal Mappe1, 2 etc. sein kann. Danke für die Hilfe.
Anzeige