Ich komme gar nicht dazu mich hier für die Lösungs meines letzten Beitrags zu bedanken, da dieser super schnell beantwortet und gelöst wurde.
Also erstmal vielen Dank dafür an dieser Stelle.
Der Code ist wie folgt aufgebaut:
Sub Test()
Dim appWord As Object, docWord As Object, wks As Worksheet, Zeile&
Set wks = ThisWorkbook.Worksheets("Request Sheet")
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Add("C:\Users\xxxxxx\Desktop\xxxxxx.docx") 'anpassen
Zeile = Application.InputBox("Tragen Sie die lfd. Nr. ein:", "Eingabe", _
Type:=1)
appWord.Visible = True
With docWord
.Bookmarks("Datum").Range.Text = wks.Range("B" & Zeile).Value
.Bookmarks("Kontakt").Range.Text = wks.Range("C" & Zeile).Value
.Bookmarks("Typ").Range.Text = wks.Range("D" & Zeile).Value
.Bookmarks("Format").Range.Text = wks.Range("E" & Zeile).Value
End With
End Sub
Ich möchte meinem Programm nun den Feinschliff verpassen.
Ich versuche dazu einen Pfad zu definieren, in dem die Worddatei als .docx gespeichert wird und den Dateinamen aus der Zelle 'Kontakt' und 'Datum' aus dem Code betiteln.
Dabei soll aber die Zeile verwendet werden, die durch die Variable 'zeile' definiert ist.
Mein kläglicher Versuch lautet wie folgt:
Dim N, P As String
P = "C:\Users\xxxxxx\"
N = Sheets(1).[A10].Value
T = ".docx"
ActiveWorkbook.SaveAs Filename:=P & N & T
leider benennt er die Datei zwar in den Wert aus A10 aber wenn ich auf speichern drücke fragt er trozdem nach einem pfad. Und er bennent die Exceldatei um :(