diff --git a/Lisp/ks_pruefung.lsp b/Lisp/ks_pruefung.lsp
index 5fa0c99..31daaf4 100644
--- a/Lisp/ks_pruefung.lsp
+++ b/Lisp/ks_pruefung.lsp
@@ -119,6 +119,11 @@
   (close fh)
   (princ (strcat "\n>>> KS-Pruefung fertig: " (itoa n) " Bloecke -> " fpath))
   (princ (strcat "\n    (Spalten: KS_EIN/KS_AUS je 2D u. 3D, *_diff=groesste Komponentenabweichung, dxyz=KS_AUS-KS_EIN, Status)"))
+  ;; CSV direkt mit dem Standardprogramm (z.B. Excel) oeffnen; fehlertolerant.
+  (vl-catch-all-apply
+    (function (lambda ()
+      (startapp "cmd.exe"
+        (strcat "/c start \"\" \"" (vl-string-translate "/" "\\" fpath) "\"")))))
   (princ)
 )