Sub
Kameraplan()
Dim
wordapp
As
New
Word.Application
Dim
doc
As
Word.Document
Dim
A1Kamera1 = Anlagen.Range(
"D4"
)
Dim
A1Kamera2 = Anlagen.Range(
"D5"
)
Dim
A2Kamera1 = Anlagen.Range(
"H4"
)
Dim
A3Kamera1 = Anlagen.Range(
"L4"
)
Range(
"A2:A5"
).Sort Key1:=Range(
"A2"
), Order1:=xlDescending, Header:=xlGuess
Daten.Range(
"A2"
) = A1Kamera1
Daten.Range(
"A3"
) = A1Kamera2
Daten.Range(
"A4"
) = A2Kamera1
Daten.Range(
"A5"
) = A3Kamera1
Daten.Range(
"A6"
) =
""
Daten.Range(
"A7"
) =
""
Daten.Range(
"A8"
) =
""
Daten.Range(
"A9"
) =
""
wordapp.Visible =
True
Set
doc = wordapp.Documents.Open(
"DATEIPFAD"
)
doc.Bookmarks(
"Kamera1"
).Range.Text = Daten.Range(
"A2"
)
doc.Bookmarks(
"Kamera2"
).Range.Text = Daten.Range(
"B2"
)
doc.Bookmarks(
"Kamera3"
).Range.Text = Daten.Range(
"C2"
)
doc.Bookmarks(
"Kamera4"
).Range.Text = Daten.Range(
"D2"
)
doc.Bookmarks(
"Kamera5"
).Range.Text = Daten.Range(
"E2"
)
doc.Bookmarks(
"Kamera6"
).Range.Text = Daten.Range(
"F2"
)
doc.Bookmarks(
"Kamera7"
).Range.Text = Daten.Range(
"G2"
)
doc.Bookmarks(
"Kamera8"
).Range.Text = Daten.Range(
"H2"
)
doc.ExportAsFixedFormat ThisWorkbook.Path &
"Kameraplan"
&
".pdf"
, wdExportFormatPDF
doc.Close SaveChanges:=
False
wordapp.Quit
End
Sub