Hallo und Danke für deine Antwort
wie gesagt, ich bin noch kein Experte
ich brauche den Laufwerksbuchstabe, da die neue Datei nicht im selben Pfad abgespeichert wird.
Ich öffne die Vorlage im Ordner "U:\2017\", bearbeite sie und speichere sie über Makro im Ordner "U:\2017\Beurteilung\"
Ich möchte den Laufwerksbuchstaben in der Sub Speichern () ermitteln und durch eine Variable ersetzen
Mein gestriger Text kommt leider ziemlich unübersichtlich daher, da die Zeilenschaltung irgendwie nicht funktionierte :(
hier nochmals mein Code
Sub Speichern()
Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:="U:\2017\Beurteilung\" & ActiveSheet.Range("F2") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True Workbooks.Open "U:\2017\Beurteilung.xlsm"
End Sub
Vielleicht gibt es ja doch eine Lösung in meinem Sinne?
|