Thema: Speichern unter forlaufender Nummer

Home

Gruppe

Datei

Problem

Eine Arbeitsmappe soll unter einer sich immer um 1 erhöhenden fortlaufenden Nummer gespeichert werden.

Lösung

Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub Speichern()
   Dim sFile As String, sOld As String
   sOld = ThisWorkbook.Name
   If IsNumeric(Mid(sOld, 9, 4)) Then
      sOld = Mid(sOld, 9, 4)
   Else
      sOld = 0
   End If
   sOld = Format(CInt(sOld) + 1, "0000")
   sFile = Range("A1").Text & "_"
   sFile = sFile & Range("B1").Text & "_"
   sFile = sFile & sOld & ".xls"
   ThisWorkbook.SaveAs Range("E1").Value & _
      "\" & sFile
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Speichern

Excel/PDF Datei unter bestimmten Pfad abspeichern	aus excel Worddatei nach Wert durchsuchen
VGA Überprüfen/Ausschneiden/Speichern von Werten	Split-Funktion beim Einlesen TXT-Datei
Datei löschen mit unterschiedlichen Zahlen im Name	Datei löschen mit unterschiedlichen Zhalen im Name
geöffnete Worddatei und Word aus Excel beenden	Excel-Datei nicht im Projekt-Explorer
Suche nach jüngster Datei	Bereich als Bild speichern.
Mehrere Zellen in mehreren Dateien ersetzen	"Speichern unter" mit VBA für eigene Files
Screenshot speichern	Datei öffnen mit variablen im Namen
Vergleichen zweier Dateien und aktualisieren	Datei langsam durch Formel
Dateien aus Unterordner öffnen	Daten import aus txt--Datei
Dropdown Menü weitersetzen und als PDF speichern	Dateipfad öffnen mit VBA
Datei-Verknüpfungen	Masterdatei erschaffen?
Mehrere Datenblätter als PDF-Datei ausgeben	Makro bei Erstellen einer Datei aus einer Vorlage
Zusammenführung aus mehreren Dateien	Rechteck per Button in andere Datei einfügen.
Alle Dateien in einem Unterordner öffnen	VBA: MsgBox: yes/no. Bei yes andere Datei öffnen
Speichern mit Pfad aus Zelle einer nichtaktiven Ma	Mehrere txt Dateien einlesen in ein Programm
VBA Datei als .txt speichern	Excel Datei in CSV Datei wandeln mit Extras
aktierten Text in geöffnete Worddatei	Spalte in andere Dateien kopieren + zurückkopieren
Aus einer CSV-Datei ein bestimmtes Layout erzeugen	Daten ausgew. WS in 2. Datei zusammenführen
Per VBA aktuelle Datei in Autostart-Ordner	csv Dateien importieren
Makrodatei als Software hochwertiger gestalten	manuelles Speichern bei schreibgeschützter Datei
Daten aus geschlossener Datei in Zieldatei kopiere	Speichern mit erhöhten ID Nummern
Dateinamen per VBA vorgeben (Datum: Vormonat)	Ordner mit Unterordnern/Dateien kopieren
Auswertung über mehrere Dateien	Geschlossene Excel-Datei bearbeiten?
datei öffnen durch vba ohne makroaktivierung	Datei öffnet im Entwurfsmodus
Dateinamen der ausgelesenen Datei anzeigen