mh also erstmal den Code bissl aufräumen...
User_Input = InputBox("Geben Sie einen Dateinamen ein: ", _
"Erstellen einer Datei", "Bestellung_Nr.")
ActiveDocument.SaveAs FileName:=User_Input & ".xls", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
das geht jetzt soweit... nur speichert er die Datei unter eigene Dokumente, und ich denke mal der User soll auch noch den Ordner wählen können oder?