Habe über Makro aus einer xls-Datei (Datei1) eine neue geöffnet und Daten hineinkopiert. Möchte das Makro so erweitern, dass es automatisch die Speichern unter Funktion aufruft und nach EIngabe meinerseits automatisch die Datei schliesst und wieder auf die erste Datei wechselt.
HAbe das Forum durchforstet wie blöd, aber die Lösungsansätze bringen nicht den gewünschten Effekt. Ist sicher nicht so schwierig, aber ich bin noch VBA-Rookie. Also bitte um Hilfe.
Danke!
Hi Ludes,
den "Speichern unter"-Dialog rufst Du über
Application.Dialogs(xlDialogSaveAs).Show
auf. Allerdings endet hier soweit ich weis das makro. Nachdem Du den Dateinamen eingegeben hast und die Speichern-Taste gedrückt hast, fährt das Makro nicht fort.
Gruß
Ralf
www.joomlaworker.de
AW: speichern unter und schliessen
01.02.2008 11:44:00
Ludes
BEi mir fährt es nach dem speichern fort. Das PRoblem ist, das ich das Makro gerne abbrechen würde bzw. an einer späteren Stelle wieder einsteigen möchte wenn im "Speichernunter-Fenster" auf "Abbrechen" gedrückt wurde. Hab das mit der If Funktoin aber noch nicht so ganz raus!
Anzeige
AW: speichern unter und schliessen
03.02.2008 13:19:01
Chris
Servus,
dann bau dir eine MsgBox und eine Sprungmarke ein:
z.B.:
Dim nachricht As String
Application.Dialogs(xlDialogSaveAs).Show
nachricht = MsgBox("Haben Sie die datei gespeichert?", vbYesNo)
If nachricht = vbNo
goTo Sprungmarke
End if
Sprungmarke:
...
Es besteht natürlich die Gefahr, dass einer auf den falschen Button drückt, aber als Ansatz ist das eventuell ganz gut.
Gruß
Chris