Hallo Excel Profis,
möchte gerne von der UF1 mit einem Button UF2 öffnen
Hintergrund: in UF1 werden Daten gesucht und bei Betätigen des Button jpgREIHE soll diese Datei mit UF2 angezeigt werden (UF2) dient nur zur Darstellung der Bilder
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
IN UF2 ist aber der Pfad als Konstante angegeben aber dieser ändert sich ja immerConst strPfad = "C:\Users\.......\"
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
Ich würde mich freuen wenn mir jemand dabei helfen könnte.Gruß Richard