Hallo,
Die Funktion ist da:
Function MessageslistitemNotExists(messageslist List As String, messagedescriptor As String, messagescounter As Integer ) As String
Dim x As Variant
If Iselement(messageslist(messagedescriptor)) Then
messageslistitemNotExists = messageslist(messagedescriptor)
'Msgbox messageslistitemNotExists
Else
For i = 0 To messagesCounter-1
If messageslistitemnotexists = "" Then
messageslistitemnotexists = messagedescriptor
Else
messageslistitemnotexists = "~" + messagedescriptor
End If
Next
'Msgbox messageslistitemNotExists
End If
End Function