Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.10.2025 18:27:08
Formel anstelle XVWERWEIS für alte Excel-Version
07.10.2025 15:42:10
Identische-Tabellen-identische Sub's funktionieren nicht...
07.10.2025 09:25:19
Bedingte Formatierung mit bezug auf anderes TabellenBlatt
07.10.2025 08:24:37
Formel mit dynamischer Name aus Zelle
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
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

.Xlsm Datei mit versch. Namen speichern

Forumthread: .Xlsm Datei mit versch. Namen speichern

.Xlsm Datei mit versch. Namen speichern
21.12.2021 18:26:37
Robert
Liebe Exelgemeinde!
Ich habe mich mal wieder an einem Makro probiert und laufe ins leere. Dazu bräuchte ich mal wieder Eure Hilfe, wofür ich sehr dankbar wäre.
Ich möchte mit dem Makro die jeweilige Datei als .xlsm Datei abspeichern. Dabei würde ich gerne in A2 den Namen der Datei eintagen um dann die Datei mit ihm abzuspeichern. Was nicht schlecht wäre, wenn ich in A1 noch den Pfad eintragen könnte. Dieser dann beim speichern übernommen würde. Meine Versuche laufen leider wieder ins leere. Hier der Code

Sub DateinameSpeichern()
Dim Dateiname As String
Dateiname = Worksheets("Tabelle1").Range("A2")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & A2 & ".xlsm")
End Sub
Eine Beispieldatei habe ich angehängt.
Für Eure mühe danke ich im voraus
https://www.herber.de/bbs/user/149939.xlsm
LG Robert
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .Xlsm Datei mit versch. Namen speichern
21.12.2021 18:53:37
GerdL
Moin,
kein Problem, wenn
-du in A1 einen vollständigen gültigen Pfad schreibst
-du in A2 einen Namen ohne Dateiendung schreibst
-du den Code kein zweites Mal laufen lässt, ohne A1 oder A2 vorher zu ändern.
-du weist, dass ActiveWorkbook und ThisWorkbook nicht unbedingt immer die selbe Datei ist.

Sub DateinameSpeichern()
Dim Dateiname As String, Pfad As String
Dateiname = Worksheets("Tabelle1").Range("A2")
Pfad = Worksheets("Tabelle1").Range("A1")
ActiveWorkbook.SaveAs (Pfad & "\" & Dateiname & ".xlsm")
End Sub

Gruß Gerd
Anzeige
AW: .Xlsm Datei mit versch. Namen speichern
21.12.2021 20:19:07
Robert
Hallo Klaus und Gerd!
Erst mal Danke für Eure Mühe.
Mit der Beispieldatei funzt dies Speicherung ausgezeichnet. Allerdings kommt als Dateibezeichnung nicht Arbeitsmappe mit Makros, sondern Arbeitsblatt mit Makros. Wenn ich einen Arbeitsmappe dann speichern will, dann will es nur als ganz normal Exeldatei ohne Makros speichern und wenn es weg geklickt wird kommt der Fehler 400.
Gibt es eventuell eine Lösung für das Problem. Denn ich bräuchte es als xlsm Datei.
Danke im voraus.
LG Robert
Anzeige
AW: .Xlsm Datei mit versch. Namen speichern
22.12.2021 08:59:46
KlausFz
Hallo Robert,
Dein Phänomen "Allerdings kommt als Dateibezeichnung nicht Arbeitsmappe mit Makros, sondern Arbeitsblatt mit Makros." kann ich nicht nachvollziehen.
Bei mir kommt überhaupt keine Meldung, die Datei wird klaglos gespeichert.
Nur bei nochmaliger Speicherung unter dem gleichen Pfad/Namen kommt die Nachfrage zum Überschreiben, die habe ich bewusst nicht per Makro ausgeknipst.
Hier nochmals die Datei, Code nun unter DieseArbeitsmappe und ohne die Dateierweiterung im Namen; der Typ wird ja im SaveAs bereits festgelegt.
https://www.herber.de/bbs/user/149943.xlsm
Gruß!
Klaus
Anzeige
AW: .Xlsm Datei mit versch. Namen speichern
22.12.2021 09:47:56
Herbert_Grom
Hallo Robert,
probiers mal damit:
in A1: 

=LINKS(ZELLE("Dateiname"; A1);FINDEN("[";ZELLE("Dateiname";A1))-1)
Makro:

Sub DateinameSpeichern()
ActiveWorkbook.SaveAs ([A1] & [A2] & ".xlsm")
End Sub
Servus
Anzeige
AW: .Xlsm Datei mit versch. Namen speichern
22.12.2021 20:19:11
Robert
Vielen Dank an Euch alle für Eure Hilfe. Es funzt.
Aber ein Problem bleibt alle Xlsm Dateien heissen bei mir jetzt Arbeitsblatt mit Makro. Was könnte das sein. Verhalten tuen Sie sich aber ganz normal.
LG Robert
AW: .Xlsm Datei mit versch. Namen speichern
23.12.2021 08:48:23
Herbert_Grom
Wenn der Name der aktiven AM in A1 steht, wird die Datei immer mit diesem Namen und dem Suffix "xlsm" (für Makro-AM) gespeichert. Wenn du die Datei nicht als Makro-AM speichern willst, dann mach aus "xlsm" ein "xlsx"!
Anzeige
;

Forumthreads zu verwandten Themen

VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Anzeige
Bilddatei mit neuem Namen speichern
egonkernien

Hallo wer hilft bitte?
Guten Abend.
Ich möchte eine Dialogbox aufrufen, dort eine Bilddatei auswählen.
Ich möchte diese Bilddatei in ein Image1 auf einer Userform laden. Z.B. D:\Daten\Bilder\DSC0011.jpg
Dann diese Bilddatei umbenennen in D:\Daten\Test\082008_01.jpg, abspeichern...
28.08.2008 22:32:28
Thread-ID: 1005608
5 Beiträge
EXCEL Datei mit Passwort starten
hindenberger@gmx.de

Hallo,
kann ich eine EXCEL- Liste mit einem Passwort versehen, so dass ich sie nur mit korrektem Passwort starten kann?
Danke.
Gruß,
Patric
30.11.2008 12:22:00
Thread-ID: 1029005
5 Beiträge
Datei-Kopie mit aktuellem Namen speichern
Lenni

Moin Excellianer!
Ich möchte nicht nur, das meine Datei automatisch gespeichert wird, es soll auch eine Kopie der Datei an einem anderen fest definierten Ort gespeichert werden.
Folgenden Code verwende ich:
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Me...
11.01.2009 00:23:31
Thread-ID: 1038550
10 Beiträge
Anzeige
Datei mit akt. Tagesdatum speichern. Wie?
stefan

hallo,
ich ändere fast jeden tag etwas an einer datei. wie kann ich beim speichern automatisch eine version mit dateiname_aktuelles_datum.xls anlegen?
danke für eure hinweise.
05.03.2009 14:54:05
Thread-ID: 1056872
2 Beiträge
Excel Datei komplett Passwortschützen
Kai

Hi,
ich habe seither in meiner Excel Datei einlelne Blätter passwortgeschützt:
ActiveSheet.Unprotect
Range("A1:IV65536").Locked = True
ActiveSheet.Protect Password:="Test"
gibt es auch ne Möglichkeint, per Makro, einen Passwortschutz über die komplette Datei , oder über alle...
15.07.2009 12:17:02
Thread-ID: 1088784
6 Beiträge
Datei mit 14MB auf Server speichern dauert
Rupert

Hallo Leute,
Ich hätte da wieder mal ein Problem. Ich habe hier eine Datei im Excel - 2007 Format, welche Verkünpfungen & Pivot-Tabellen enthält.
Seit gestern hab ich Probleme diese Datei zu speichern. Der Zielort ist ein Netzlaufwerk.
Ich hab es mit zwei PC's ausprobiert einmal...
16.10.2009 21:26:27
Thread-ID: 1110073
2 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
VBA - Datei speichern wenn Zelle AI1 erreicht
Stef@n

Hallo Excel-aner ;)
Ich arbeite mit einem Code, der der Reihe nach die Zeile 1 von der Spalte C1 bis AI1 "abarbeitet".
Nachdem der Code die Zelle AI1 abgearbeitet hat, soll die Datei gespeichert werden.
...
For Spalte = 3 To .Cells(1, Columns.Count).End(xlToLeft).Column 'die l...
24.11.2009 09:57:10
Thread-ID: 1119667
3 Beiträge
Nur eine Zelle mit Passwort schützen
Horst

Hallo!
Ich möchte nicht ein ganzes Excelblatt mit einem Passwort schützen, sondern nur eine Zelle innerhalb eines Blattes.
Kann man dieses?
Und wenn ja wie?
Tabelle1.Range("A1").Protect Password:="123" oder
ActiveCell.Protect Password:="123" oder
Selection.Protect Passwo...
26.11.2009 08:53:47
Thread-ID: 1120172
3 Beiträge
VBA: Datei ohne Makros speichern
André

Moin zusammen,
gegeben ist eine Exceldatei mit Makros (.XSLM).
In dieser Datei soll nun ein Makro folgendes tun:
- die Datei speichern, wobei der User den Dateinamen und Pfad angeben darf
- die Datei darf nur in den Formaten XLSX oder XlS, in jedem Fall aber ohne Makros gespeich...
19.04.2010 13:13:27
Thread-ID: 1152560
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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