Menü
An- und Abmelden
Partner / Links
Beiträge anzeigen
1
Excel / Dateinamen aus verschiedenen Zellen speichern
« 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
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
ich benötige mal Eure Hilfe. Ich weiß was ich machen möchte, weiß aber nicht wie
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