Hi,
versuch's mal so. Erstelle einen Agenten der ausgewählte Dokumente bearbeitet und füge folgenden Code ein.
Ich habs nicht getestet, müsste aber funktionieren.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim preis As Single
Set db = session.CurrentDatabase
'Alle markierten Dokumente in Collection
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
preis = Val(doc.Preis(0)) 'Feldwert in Zahl umwandeln
preis = preis / 1.95583
doc.Preis = Format(preis, "#.##0,00")
Call doc.Save(True, False)
Set doc = collection.GetNextDocument(doc)
Wend
Axel