Hallo Ludsche,
das nachfolgende Makro erhöht die Zahl in A1 um 1 und bildet einen Dateinamen von A1 und B1 und speichert die Tabelle ab.
Gruß
fedjo

Option Explicit
Sub speichern()
Dim strDateiname As String
Range("A1").Value = Range("A1").Value + 1 'Zelle A1 anpassen
strDateiname = Range("A1").Value & Range("B1").Value & ".XLS" 'Zellen A1, B1 anpassen
ActiveWorkbook.SaveAs ("C:\Dokumente und Einstellungen\Admin\Desktop\" & strDateiname) 'Pfad anpassen
Application.DisplayAlerts = False
End Sub

Hi,

eine andere Möglichkeit wäre, wenn du alle Angebote in einem Ordner ablegst und dann die Anzahl der Mappen zählen lässt. Das Günstigste ist, wenn du dir eine Vorlage im selben Ordner erstellst und in dieser folgenden Code verwendest

Sub dateien_zaehlen_speichern()
    With Application.FileSearch
        .LookIn = "D:\Eigene Dateien\Excel\"
        .SearchSubFolders = False
        ThisWorkbook.SaveCopyAs "Angebot" & .FoundFiles.Count + 1 & ".xls"
    End With
End Sub

Bis später,
karin