mal wieder ein Problem.
Wenn ich folgenden Code verwende wird die Datei gespeichert, und nun mein Problem: Der Code wird aus einer schon offenen Datei gestartet und zu dieser möchte ich wieder zurückkehren mir bleibt jetzt die Gespeicherte Datei offen.
Danke Udo
Sub Speichern()
Dim DName As String, aktDir As String
Dim a As Byte
a = MsgBox("Wollen Sie wirklich speichern.............................?", vbYesNo)
If a = 7 Then Exit Sub
' Nein wurde gedrückt, besser wäre Ja abfragen, man kann auch das X drücken
ChDir "C:\123"
ActiveSheet.Copy
DName = [a2] & "_" & [b2] & "_" & [c2] & "_" & [d2] & "_" & ".xls"
ActiveWorkbook.SaveAs DName
ActiveWorkbook.Close
End Sub