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

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

Titel: Dateinamen aus verschiedenen Zellen speichern
Beitrag von: Tina2404 am Mai 24, 2018, 15:55:04 Nachmittag

Hey liebe Leute :)
ich benötige mal Eure Hilfe. Ich weiß was ich machen möchte, weiß aber nicht wie  :o
zum Problem:
Ich möchte aus einer Excel-Datei beim automatischen speichern auch automatisch einen Dateinamen vergeben, welcher sich 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 zusammensetzen soll. Die Datei soll automatisch an einen bestimmten Ort gespeichert werden und soll sich wieder schließen.

Ich habe eine Version ausprobiert, allerdings bezieht sich hier bislang der Name nur auf die komplette Angabe in Zelle A1, ABER da funktioniert es schonmal  :)

Sub BlattNameausA1()
 Dim wks As Worksheet
 For Each wks In Worksheets
     wks.Name = wks.Range("A1").Value
 Next
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Test_Reports_Tina\Übertragungsdatei\Reports (XML)\" & Range("A1") & ".xls"
        Application.Quit
End Sub

Über eure Hilfe wäre ich SEHR dankbar.
VG Tina

Titel: Antw: Dateinamen aus verschiedenen Zellen speichern
Beitrag von: steve1da am Mai 24, 2018, 16:11:06 Nachmittag

Hola,

warum ist die Frage denn 2mal vorhanden?

Gruß,
steve1da