|
Hallo Detlev,
ich hab den Code mal so eingebaut, aber leider passiert garnix. Ich bekomme nicht mal eine MsgBox Meldung. Ich hab den Code so eingebaut:
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
In dem ursprünglichen Code war das ganze ja mit dem Wert des SpinButtons gekoppelt:
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))
Und am Ende wird das Bild über den Zähler und dem Wert geladen.
Gruß Christian
|