Datei speichern
pabro
ich habe mir unten stehenden Code zusammenkopiert um eine Excel-Tabelle in Abhängigkeit von Zellinhalten unter einem bestimmten Namen zu speicher. Es stellt sich noch folgendes Problem: In diesem Excel-Formular können bis zu 3 Vorfälle auf einmal bearbeitet werden. Sobald es einen 4 Vorfall gibt, muß eine zweite Datei gespeichert werden. In diesem Fall sollte die bereits vorhandene erste Datei im Namen zusätzlich noch die Endung "-1" bekommen und die zweite dann die Endung "-2"
Kann man sowas in einem Excel-Code realisieren, d.h. wenn der "ActiveWorkbook.SaveAs Filename" Befehl einen bereits vorhanden Dateinamen produziert sollte der bereits vorhande umbenannt werden in ......-1 und der neue in ...-2, hat da jemand eine Idee?
Sub Speichern()
Dim OApp As Object, OMail As Object
Dim strAtt As String
Dim attAdd As Boolean
Dim n As String, n1 As String
Dim n2 As String, n3 As String
Dim rngR As Range
n = Range("F8").Value
n1 = Range("H8").Value
n2 = Range("G23").Value
n3 = Range("G50").Value
ActiveWorkbook.SaveAs Filename:="C:\Dokumente und Einstellungen\P.Broich\Eigene Dateien\Broich\ _
Lackberichte\Abgesendet\" & "LB-" & n & "-" & n1 & ".xls"
End Sub