Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Speichern unter forlaufender Nummer

Gruppe

Speichern

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