Tabelle speichern ohne Abfrage!?
17.11.2017 10:49:54
TiloT
was mache ich Falsch?
Er soll die Tabelle als neue Datei in einem Ordner speichern.
Name der Datei der Wert F14
Warum übergeht er DisplayAlerts?
Bei Ausführen öffnet er immernoch das Fenster "Speichern unter"
Dann muss ich noch "Speichern" Drücken, das will ich nicht!
Er soll einfach die Tabelle als Datei speichern, fertig!
Danke mal für Euren Input!
Option Explicit
Sub Speichern()
Dim strDateiname As String
strDateiname = Application.GetSaveAsFilename(Range("F14").Value & ".xls")
Tabelle2.Copy 'Kopiert das Blatt in eine neue Mappe
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Pfad\Pfad\" & strDateiname 'neue Mappe _
unter eingegebenenm Namen speichern
ActiveWorkbook.Close 'Neue Mappe wieder schliessen
Application.DisplayAlerts = True
End Sub
Anzeige