Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abspeichern

Forumthread: 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
Anzeige

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"

Anzeige
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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige