Hi Leute!
Ich habe folgendes Problem. Und zwar habe ich ein Makro geschrieben, welches automatisch ein Wordtemplate befüllt. Die Informationen zum befüllen nimmt das Makro aktuell aus der letzten Zeile im UsedRange. Nun möchte ich aber, dass man sich selber die Zeile aussuchen kann.
Gibt es die Möglichkeit, dass ich ein Fenster mit der Aufforderung eine Zeile anzuklicken aufrufen kann und durch den Klick quasi die Zeile dann entnommen wird?
Hier ein Teil meines Codes
Danke euch :)
Private Sub word_PTN_Click()
Dim objword As Object
Dim Retour As Worksheet
Dim Path As String
Set Retour = ActiveWorkbook.Sheets(1)
Set objword = CreateObject("Word.Application")
With Retour
lastRow = Cells(Retour.Rows.Count, 2).End(xlUp).Row
Set Customer = Cells(lastRow, 2)
End With
With objword
.Visible = True
.Documents.Open "H:\Andrea\Test.docx"
.ActiveDocument.Bookmarks("Text1").Select
.Selection.Text = Customer
End With
End Sub
|