Private Sub SpinButton1_Change()
Dim verz As String
Dim Fotos()
Dim i_zähler As Long
Dim i_Zähler2 As Long
Dim Fehler As String
On Error GoTo Ende
Fehler = frmFehlerkatalog.Tag
SpinButton1.Min = 1
verz = ThisWorkbook.Path & "\Fehlerfotos\" & Fehler & "\1"
With Application.FileSearch
.Filename = Fehler
.LookIn = verz
.Execute
i_zähler = .FoundFiles.Count
End With
SpinButton1.Max = i_zähler
ReDim Fotos(i_zähler)
With Application.FileSearch
.Filename = Fehler
.LookIn = verz
.Execute
For i_Zähler2 = 1 To i_zähler
Fotos(i_Zähler2) = .FoundFiles(i_Zähler2)
Next i_Zähler2
End With
Image1.Picture = LoadPicture(Fotos(SpinButton1.Value))
Label1.Caption = Fehler & " " & SpinButton1.Value & ".jpg"
Exit Sub
Ende:
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Resource\keinBild.jpg")
Label1.Caption = ""
End Sub