'Wenn die Signalliste nicht die aktuelle Version ist, dann ziehen wir sie nach
sVers = Split(Application.ActiveSheet.Names("Version_Programm").RefersToLocal, "=")
sVersion = Replace(sVers(1), Chr(34), "")
If Dezimaltrennzeichen <> "." Then
dVersionProgramm = CDbl(Replace(VersionSignallistenprogramm, ".", Dezimaltrennzeichen))
dVersion = CDbl(Replace(sVersion, ".", Dezimaltrennzeichen))
Else
dVersionProgramm = CDbl(VersionSignallistenprogramm)
dVersion = CDbl(sVersion)
End If