Fehler gefunden. Das liegt in der Lib.appl.functions an der Funktion MessageslistitemNotExists ...
Die Komplette Funktiojn durch das hier ersetzen:
Function MessageslistitemNotExists(messageslist List As String, messagedescriptor As String, messagescounter As Integer ) As String
Dim x As Variant
' change messagescounter to 1 if zero or negative because there must be at last one element
If messagescounter < 1 Then messagescounter = 1
'check different keys if not available
If Iselement(messageslist(messagedescriptor)) Then
messageslistitemNotExists = messageslist(messagedescriptor)
Exit Function
End If
If Iselement(messageslist(Ucase$(messagedescriptor))) Then
messageslistitemNotExists = messageslist(messagedescriptor)
Exit Function
End If
If Iselement(messageslist(Lcase$(messagedescriptor))) Then
messageslistitemNotExists = messageslist(messagedescriptor)
Exit Function
End If
For i = 0 To messagesCounter-1
If messageslistitemnotexists = "" Then
messageslistitemnotexists = messagedescriptor
Else
messageslistitemnotexists = "~" + messagedescriptor
End If
Next
'Msgbox messageslistitemNotExists
End Function