diff --git a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
index daed32b..a00d562 100644
--- a/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
+++ b/app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
@@ -57,7 +57,8 @@
                     ReDim Preserve result(0)
                     result(0) = value
 
-                    If INDEXNAME.StartsWith("[%VKT") Then
+                    Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME)
+                    If oIndexType > 4000 And oIndexType < 5000 Then
                         Dim PM_String = Return_PM_VEKTOR(value, INDEXNAME)
                         'Hier muss nun separat als Vektorfeld indexiert werden
                         If Indexiere_VektorfeldPM(PM_String, CURRENT_PROFILE_VEKTOR_LOG) = False Then