Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abspeichern

Abspeichern
17.03.2017 10:28:16
Kopenhagen
Hallo ich habe diesen Code verwendet und es kommt immer die Meldung:
Datei ist nicht vorhanden oder wird gerade genutzt
Mein 2. Anliegen ich möchte gern das der neue Name aus einer Tabellenzelle entnommen wird.
Wäre super wenn mir jemand ein Tipp geben würde
Private Sub CommandButton4_Click()
Worksheets("Rechnung").Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:Benutzer\Steffen\Eigene Dateien\Belege\" & ActiveSheet. _
Name & ".xlsx"
End Sub

Tschüss Steffen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abspeichern
17.03.2017 10:54:37
Sven
Hallo Steffen,
zu einem hast Du vermutlich einen Fehler im Pfad, dort fehlt ein Backslash:
C:\Benutzer\Steffen\Eigene Dateien\Belege\
Den Speichername aus einer Zelle bekommst Du wie folgt.

Dim neuer Name as String
neuerName = range("A1").value    'Hier die Zelle angeben, in der sich der Name befindet.
ActiveWorkbook.SaveAs Filename:="C:Benutzer\Steffen\Eigene Dateien\Belege\" & neuerName & ".xlsx"

AW: Abspeichern
17.03.2017 18:52:20
Kopenhagen
Danke erst mal. Den Pfad habe ich berichtigt und o.g. Tipp eingefügt.
Jetzt kommt Laufzeit Fehler 1004. Es wird nicht gespeichert aber die neue Datei wird unter "Mappe1" offen angezeigt. Muss sie aber per Hand abspeichern.
Mein Code jetzt: 
Private Sub CommandButton4_Click()
Worksheets("Rechnung").Activate
Dim neuerName As String
neuerName = Range("C3").Value    'Hier die Zelle angeben, in der sich der Name befindet.
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:Benutzer\Steffen\Dokumente\Belege\" & neuerName & ".xlsx"
End Sub

tschüss Steffen
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige