von UserForm1 in Userform2 wechseln

Private Sub cmdJPGREIHE_Click()
'Link in jpg Reihe-Spalte öffnen
Dim Zeile As Long
Dim Zelle As Range
Dim jpgReiheFile As String
With Me.ListBox1
If .ListIndex  -1 Then
Zeile = .List(.ListIndex, .ColumnCount - 1)
Set Zelle = wksData.Cells(Zeile, 10) 'Zelle mit jpg Reihe-Hyperlink
jpgReiheFile = Zelle.Hyperlinks(1).Address
'            ShellExecute 0, "open", jpgReiheFile, "", "", 0 '0 = Parameter zur Anzeige
ActiveWorkbook.FollowHyperlink jpgReiheFile
End If
End With
End Sub

Private Sub UserForm2_Initialize()
Dim strDatei As String
Dim i As Integer
Dim i_Anz As Integer
i_Anz = Me.mlt_Bilder.Pages.Count
i = 0
strDatei = Dir(strPfad & "*.jpg")
While strDatei  ""
If i_Anz - 1