Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabelle speichern ohne Abfrage!?

Tabelle speichern ohne Abfrage!?
17.11.2017 10:49:54
TiloT
Moin zusammmen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ich Spatzenhirn... :o) - erledigt siehe hier...
17.11.2017 10:58:07
TiloT
ThisWorkbook.Path & "\Pfad\Pfad\" war doppelgemoppelt (2te Pfadangabe ist ThisWorkbook)
ThisWorkbook.Path & "\Pfad\" so ist richtig
Danke Gruß
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige