I found some time in the evening to code this ridiculous small and easy function instead of my first solution with a macro:
(defun dired-to-org ()
"Find references to current directory in org-file."
(interactive)
(let ((dir default-directory))
(switch-to-buffer "myfile.org")
(org-search-view nil dir nil)))