Office 2016 aus mehreren Zelleninhalten einen Dateinamen speichern VBA

[Tina2404]

Hallo liebe Leute
ich benötige dringend Hilfe. Ich weiß zwar was ich machen möchte, aber leider weiß ich nicht wie.
zum Problem:
Ich möchte, dass sich mein Dateiname automatisch beim abspeichern aus den ersten 3 Zeichen der Zelle A1, aus den ersten 3 Zeichen der Zelle B1 und aus den ersten 3 Zeichen der Zelle B14 zusammensetzt. Das ganze soll als .xls Datei in einem vorgegebenen Ordner gespeichert werden und sich automatisch schließen.

hier mal mein Versuch, allerdings nur der vollständige Zellenname aus A1.... -->(das klappt einwandfrei)

Sub speichern()
 Dim wks As Worksheet
 For Each wks In Worksheets
     wks.Name = wks.Range("A1").Value
 Next
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Test\" & Range("A1") & ".xls"
        Application.Quit
End Sub

Wäre über Hilfe SEHR dankbar.
VG Tina

[maninweb]

Hallo,

dies ist ein doppelter Beitrag und deshalb wurde der gesperrt. Der andere
Beitrag ist hier https://www.office-fragen.de/index.php/topic,56451.0.html

Gruß