Beim aktivieren der Userform muß man erst den entsprechenden Ordner auswählen.
Mein Wunsch wäre folgender.....
.... Beim öffnen der Userform soll er die entsprechenden Bilder automatisch in C:\Bilder\Haus suchen, und wenn sie da nicht sind in C:\Bilder\Garten
wie müßte der Code da entsprechend geändert werden?
Private Sub UserForm_Activate()
Dim strMessage As String, lstrPfad As String
strMessage = "Wählen Sie bitte einen Ordner aus:"
lstrPfad = GetDirectory(strMessage)
If lstrPfad = "" Then MsgBox "Abbruch": Exit Sub
If Sheets(1).Cells(39, 14) = " " Then
Image1.Picture = Nothing
Else
Image1.Picture = LoadPicture(lstrPfad & "\" & Sheets(1).Cells(39, 14) & ".jpg")
End If
End Sub
Vorab schon mal Dank für die Hilfe!!!Gruß Uwe