Hallo Namenloser!
nachfolgendes Makro sollte das machen, was Du Dir vorgestellt hast. Kopiere das Makro in ein StandardModul und starte es über Deine Schaltfläche.
Option Explicit
Sub Datei_Save()
Dim strVerzeichnis As String
Dim strZusatz As String
Dim Dateityp$
Dim bolDat As Boolean
'Hier das Verzeichnis angeben, in das die Dateien _
abgespeichert werden sollen
strVerzeichnis = "C:\tmp\"
Dateityp = Dir(strVerzeichnis & "*.xlsx")
Do While Dateityp <> ""
If Dateityp = Range("A1") & "C.xlsx" Then
bolDat = True
ElseIf Dateityp = Range("A1") & "B.xlsx" Then
strZusatz = "C"
ElseIf Dateityp = Range("A1") & "A.xlsx" Then
strZusatz = "B"
Else
strZusatz = "A"
End If
Dateityp = Dir
Loop
If bolDat = False Then
ActiveWorkbook.SaveAs (strVerzeichnis & Range("A1") & strZusatz & ".xlsx")
Else
MsgBox "Alle Speicherkombinationen für die Datei bereits aufgebraucht!", vbInformation, "Abbruch..."
End If
End Sub
Du muss in der Zeile „
strVerzeichnis = "C:\tmp\" noch den Pfad zwischen die beiden Anführungsstriche ändern (Achtung! Anführungszeichen müssen stehen bleiben).
Sollte bei Dir der Dateiname in einer anderen Zelle als A1 stehen, dann die Zellenangabe in dem Makro ebenfalls ändern.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]