VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Speichern unter forlaufender Nummer

Gruppe

Datei

Bereich

Speichern

Thema

Speichern unter forlaufender Nummer

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