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:"
Worksheets("Tabelle3").Copy
DName = [C1] & "_" & [C18] & "_" & [M17] & "_" & [H17] & "_" & ".xls"
'Worksheets("Tabelle3").SaveAs DName
'Worksheets("Tabelle3").Close
Dim wkbquell As Workbook
Dim wkbziel As Workbook
Set wkbquell = ActiveWorkbook
wkbquell.Worksheets("Tabelle3").Copy
Set wkbziel = ActiveWorkbook
wkbziel.SaveAs DName
wkbziel.Close
End Sub