ungetestet: Probiers mal mit
.Name = ActiveDocument.SelectContentControlsByTag("Lfd").Item(1).Range.Text _ & " " & ActiveDocument.SelectContentControlsByTag("Titel").Item(1).Range.Text
Mr. K.