Bildsteuerelement aktualisieren bei For-Schleife

'Check if File exists with Name of selected Person and return TRUE or FALSE
Function FileExists(BrickID As String)
Dim strPathBild As String
BrickID = Range("[font=Courier New]B4[/font]").Value
strPathBild = ThisWorkbook.Path & "\Pictures\" & BrickID & ".jpg "
FileExists = Dir(strPathBild)  ""
End Function
Function updatePicture()
Dim BrickID As String, strPathBild As String
'Select Name from Dropdown and set Value to BrickID
BrickID = Range("B4").Value
strPathBild = ThisWorkbook.Path & "\Pictures\" 'Set Path for Pictures
'Call Function FileExists and check if is TRUE
If FileExists(True) Then
Person.Picture = LoadPicture(strPathBild & BrickID & ".jpg ")
Else
Person.Picture = LoadPicture(strPathBild & "error.jpg"): Err.Clear
End If
End Function
Sub PrintPerson()
Dim lngZeile As Long
For lngZeile = 0 To UffzName.ListCount - 1
updatePicture
Range("B4").Value = PersonName.List(lngZeile)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Person_Sites\" & Range("[font=Courier New]B4[/font]") & ".PDF",    _
_
_
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next lngZeile
End Sub