Hallo spezialisten,
ich bastle immer noch daran, ein Tabellenblatt abzuspeichern.
Die Datei benennen klappt ja, jetzt möchte ich noch festelegen unter welchem Laufwerk gespeichert werden soll.
Folgender Code:
Dim neuName As String
Dim laufw As String
laufw = Sheets("Formular").Range("B10").Value
neuName = Sheets("Formular".Range("B12").Value
Sheets("Formular").Copy
ChDrive "" & laufw & " " HIER STIMMT WAS NICHT !!!
ChDir "\ " & neuName & " \HL\Speichern"
ActiveWorkbook.SaveAs FileName:="" & laufw & ":\HL\Speichern\" & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
MsgBox " Das Tabellenblatt wurde unter " & laufw & ":\HL\Speichern\ " & neuName & " gespeichert !", vbibformation
ActiveWorkbook.Close
Ich möchte also über die Variable "laufw" den Buchstaben des Laufwerkes wählen, in dem abgespeichert werden soll.
Aber ich kriege den Code einfach nicht auf die Reihe.
Kann mir jemand weiterhelfen ?
Vielen Dank im voraus,
Michael