Hallo Gemeinde,

ich habe ein komisches Verhalten.

Ich befülle eine Picturebox mit Links aus einer Tabelle:

Function ZeigeDatensatz(ByVal datensatz As Long)
'Zeigt einen Datensatz in der Form an
datensatz = datensatz + g_startzeileDatensatz - 1
tb_nummer.Text = Worksheets("Datenbank").Cells(datensatz, 2).Value
tb_name.Text = Worksheets("Datenbank").Cells(datensatz, 3).Value
ib_bild.Picture = Nothing
On Error GoTo eh
ib_bild.Picture = LoadPicture(Worksheets("Datenbank").Cells(datensatz, 4).Value)
Exit Function

eh:
    MsgBox "Bildlink beschädigt oder nicht vorhanden"
End Function

und kann mit einem Klick auf das Bild die Datei aufrufen lassen:

Private Sub ib_bild_Click()
Dim a As Double
a = g_datensatzAuswahl
a = a + g_startzeileDatensatz - 1
On Error GoTo eh

If Worksheets("Datenbank").Cells(a, 4).Value <> "" Then
ThisWorkbook.FollowHyperlink Worksheets("Datenbank").Cells(a, 4).Value
Else

End If
Exit Sub

eh:
    MsgBox "Bildaufruf nicht möglich"
End Sub

Es ergibt sich allerdings folgendes Verhalten.

Ich kann meine Datensätze wunderbar durchschalten und die Bilder passen sich in der Picture Box immer an.
Sobald ich allerdings einmal die Picture Box anklicke und damit die Datei öffne, kann ich das angezeigte Bild der Picture Box nicht mehr updaten.
Die Picture Box reagiert dann gar nicht mehr...