schliessen unter

Forumthread: schliessen unter
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: schliessen unter

schliessen unter

09.08.2005 12:35:25

Matthias

Moin moin
Habe ein Problem,
Ich brauche ein Makro wo Excel fragt speichern unter, aber einen bestimmten Pfad vorgibt. Nachdem gespeichert wurde, soll sich die Arbeitsmappe automatisch schließen... ist so etwas möglich? brauche es leider dringend... :-(
Gruß Matthias

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: schliessen unter

09.08.2005 12:45:09

Matthias
AW: schliessen unter

09.08.2005 13:05:59

Matthias
AW: schliessen unter

09.08.2005 13:39:53

Matthias

AW: schliessen unter

09.08.2005 12:45:09

Matthias

Hallo Matthias,


Sub SpeichernUndSchließen()
Dim fn
fn = Application.GetSaveAsFilename("D:\xl\" & ActiveWorkbook.Name, "Excel-Arbeitsmappen (*.xls), *.xls")
If fn = False Then Exit Sub 'Abbrechen
On Error Resume Next
With ActiveWorkbook
.SaveAs Filename:=fn
If Err.Number > 0 Then
MsgBox Err.Description, vbExclamation, "Fehler " & Err.Number
Exit Sub
End If
.Close
End With
End Sub

Hier ist "D:\xl\" der vorgegebene Pfad, b.B. anpassen.
Gruß Matthias

AW: schliessen unter

09.08.2005 13:05:59

Matthias

Hallo Matthias
Vielen Dank für deine schnelle Hilfe.....
Du hast mir damit das leben gerettet.... ;-)
Gruß Matthias

AW: schliessen unter

09.08.2005 13:39:53

Matthias

Hallo Matthias,
Danke für die Rückmeldung!
Du hast mir damit das leben gerettet.... ;-)
Na, nun übertreib' mal nicht... :-)
Gruß Matthias