Function getGlobalsFromFile(ByVal Str As String)
    Dim sArray() As String
    Dim sArr
    Dim gblRng As Range
    Dim tmpStr As String
    Dim posInStr As Integer
 
    sArray = Split(Str, ";")
 
    On Error Resume Next
    Set gblRng = Range(sArray(0))
    'die Globale Range in eine globale Collection legen
    globals.Add gblRng, "rng"
    'die Range in die Settingsform eintragen
    tmpStr = Replace(sArray(0), "$", "")
    posInStr = InStr(1, tmpStr, ":")
    settingsForm.TextBox1.Text = Mid(tmpStr, 1, posInStr - 1)
    settingsForm.TextBox2.Text = Mid(tmpStr, posInStr + 1, Len(tmpStr))
    globals.Add sArray(1), "gblNeg"
    globals.Add sArray(2), "gblNegPre"
End Function