ist es möglich das wenn man eine Datei startet, sowas wie ein Explorer aufgeht...man einen Ordner auswählen kann... und diese Pfadangabe dann zum Beispiel in einem Code zu ersetzen.
Geht sowas überhaupt und wie müsste der Code für sowas aussehen ?
Hintergrund ist folgender.....
zb. hab ich in Userform5 einige Images die mit folgendem Code ausgestattet sind....
Private Sub UserForm_Activate()
If Sheets(1).Cells(39, 14) = " " Then
Image1.Picture = Nothing
Else: Image1.Picture = LoadPicture("W:\Test\BILDER\" & Sheets(1).Cells(39, 14) & ".jpg")
End If
If Sheets(1).Cells(40, 14) = " " Then
Image2.Picture = Nothing
Else: Image2.Picture = LoadPicture("W:\Test\BILDER\" & Sheets(1).Cells(40, 14) & ".jpg")
End If
If Sheets(1).Cells(41, 14) = " " Then
Image3.Picture = Nothing
Else: Image3.Picture = LoadPicture("W:\Test\BILDER\" & Sheets(1).Cells(41, 14) & ".jpg")
End If
...u.s.w.
jetzt sollte folgendes im Code ersetzt werden, da sich der Ort geändert hat. ("C:\Testumgebung\Test\BILDER\"..........
Vielleicht sowas wie suchen und ersetzen als Code?
Vorab schon mal vielen Dank für die Mühen!
Gruß Uwe