title image


Smiley Re: einzelne Werte in Listenfeldern ändern (per Script)
Schöne Grüße



Function RemoveFromTextList(item As Notesitem, removePosition As Integer) As Variant

' Diese Funktion löscht an der durch die Position bestimmten Stelle des übergebenen Items den dort eingetragenen Wert

' Rückgabewert: das verkürzte Notes Item

If Ubound(item.values) > 0 Then

Redim NewTextList(Ubound(item.Values) - 1) As String

ptr = 0

pos = 0

Forall x In item.Values

If pos removePosition - 1 Then

NewTextList(ptr) = x

ptr = ptr + 1

End If

pos = Pos + 1

End Forall

RemoveFromTextList = NewTextList

Else

RemoveFromTextList = ""

End If

End Function



Nein diese Funktion ist kein Aprilscherz.



Thomas
Notes und Exchange, das ist wie Ferrari und Lada. Dreimal darfst du raten was der Ferrari ist.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: