Public Function funString2Bool(strValue As String) As Boolean
'Ändert Boolean-Werte vom Format 0/-1 oder Falsch/Wahr in SAP-verständliches 
' False/True
    Select Case strValue
    Case "True", "Wahr", "Richtig", "Ja", "-1", "1"
        funString2Bool = True
    Case "False", "Falsch", "Nein", "0"
        funString2Bool = False
    End Select
End Function