Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Tina2404 am Mai 24, 2018, 15:44:12 Nachmittag

Titel: Office 2016 aus mehreren Zelleninhalten einen Dateinamen speichern VBA
Beitrag von: Tina2404 am Mai 24, 2018, 15:44:12 Nachmittag

Hallo liebe Leute :)
ich benötige dringend Hilfe. Ich weiß zwar was ich machen möchte, aber leider weiß ich nicht wie. :o
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

Titel: Antw:Office 2016 aus mehreren Zelleninhalten einen Dateinamen speichern VBA
Beitrag von: maninweb am Mai 27, 2018, 08:03:59 Vormittag

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 (https://www.office-fragen.de/index.php/topic,56451.0.html)

Gruß