Private Sub SpinButton1_Change()
Dim oFSO As Object
Dim Datei As String
Dim Pfad As String
Fehler = frmFehlerkatalog.Tag
Pfad = ThisWorkbook.Path & "\Fehlerfotos\" & Fehler & "\" & Fehler
Datei = Dir(Pfad)
Do While Datei <> ""
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Not oFSO.FileExists(Datei) Then
MsgBox Datei & " ist nicht vorhanden!"
Else
MsgBox Datei & " ist vorhanden!"
Image1.Picture = LoadPicture(Datei)
End If
Datei = Dir()
Loop
End Sub