z.B. MAYR Franz 2002-10-123
Kann mir das jemand von euch Profis so ergänzen, daß automatisch die letzte 11-stellige Zahl in den Dateinamen im Ordner gesucht wird un dann mit +1 hinzugefügt wird? Danke
Sub speichern_unter()
Dim str As String
str = Range("d82").Value
ActiveWorkbook.SaveAs filename:= _
"D:\Eigene Dateien\Ordi\Buchhaltung\fertigzustellende Rechnungen\" & str & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub