Sub Makro_SpeichernUnter()
'ggf. Laufwerk und Ordner als Vorgabe setzen
ChDir "\ogame"
ChDrive "c:\"
'Das Dialogfenster, "test.xls" als Vorgabedatei
Dateiname = Application.GetSaveAsFilename _
("Test.xls", "Micrsoft Excel-Dateien (*.xls),*.xls")
If Dateiname = False Then Exit Sub
MsgBox "Ihre Auswahl:" & vbNewLine & Dateiname
End Sub
Ich suche eigentlich ein Makro was eine Datei unter den Pfad c:\ogame, direkt speichern soll. Habe es aber nun so gemacht das sich das Dialogfenstern "Speichern unter" öffnet mit richtigem Pfad und Dateiname! Doch es speichert die Datei hinterher doch nicht, :(!
Das Dialogfenster öffnet sich, ich drücke auf speichern, das Fenster "Ihre Auswahl" aktiviert sich "Ihre Auswahl: C:\ogame\test.xls , doch er will die Datei nicht speichern... achja ich hoffe das hilft euch erstmal, bitte um schnelle Antwort, grüße kriss