So weit so gut.
1 Problem:
Wenn aber der Dateiname schon vorhanden ist Bricht die Code ab... Gibt es da Abhilfe !!!
2 Problem:
Es bleibt die Gespeicherte Datei offen, soll aber wieder selbstständig schließen und zurückkehren da die Code von einen anderen Blatt ausgeführt wird. Das heißt Schließen und zurück.
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
End Sub
'ActiveSheet
'ActiveWorkbook
'ActiveWorkbook