|
Hallo,
leider bin ich kein VBA-Kenner, habe mir aber aus vielen Beiträgen meine 4 Skripte zusammengebastelt. Leider scheitere ich an einem Problem:
Ich möchte abhängig von Zelleninhalten .xls datein (Dateiname und Speicherort) speichern:
a: den Dateinamen generieren -> geschafft
b: Leider kappts mit dem Speicherpfad nicht wie ich mir das vorstelle:
Sub Protokoll_speichern()
'xls erzeugen
Dim neuerName As String, Speicherpfad As String, letzerOrdner As String
letzerOrdner = Range("D3")
Speicherpfad = "C:\irgendeinelendslangerdateipfad\"letzterOrdner"\"
neuerName = "dieser Teil kappt schon"
ActiveWorkbook.SaveAs Filename:=Speicherpfad & neuerName
End Sub
Wobei "letzerOrdner" die Zelle D3 ist. Demnach soll die datei im automatisch im Ordner "D3" abgelegt werden
Wäre super wenn ihr mir da helfen könnt. ich muss das nämlich sonst gefühlt 10.000x manuell machen.
lg und Besten Dank
Bis dahin mache ich mal manuell weiter ;)
|