automatisch in zwei Ordnern suchen
Uwe
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
Gruß Uwe
Anzeige