diff --git a/app/DD_PM_WINDREAM/ClassPMWindream.vb b/app/DD_PM_WINDREAM/ClassPMWindream.vb
index a2a4bdb..80da517 100644
--- a/app/DD_PM_WINDREAM/ClassPMWindream.vb
+++ b/app/DD_PM_WINDREAM/ClassPMWindream.vb
@@ -45,9 +45,10 @@ Public Class ClassPMWindream
             Dim itsType As Type = aValue.GetType
             If itsType Is GetType(String) Then
 
-                If Not aValue = "" Then
-                    Return True
-                End If
+                ' Änderung 28.08.2018: Auch ein leerer String gilt als Wert, damit indexfelder auch geleert werden können
+                'If Not aValue = "" Then
+                '    Return True
+                'End If
 
                 Return False
             Else
diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index 18bbcdd..c8f33bf 100644
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -2518,7 +2518,8 @@ Public Class frmValidator
                                     missing = True
                                     errmessage = "Please Choose an entry out of ComboBox '" & cmb.Name & "'"
                                     Exit For
-                                ElseIf cmb.SelectedIndex <> -1 Then
+                                    'ElseIf cmb.SelectedIndex <> -1 Then
+                                Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben
                                     input = cmb.Text
                                     Dim wertWD As String
                                     'den aktuellen Wert in windream auslesen