Private Sub Main()
    Dim cuApplication                           As Cumulus5.Application
    Dim cuRecords                               As Cumulus5.Records
    Dim cuRecord                                As Cumulus5.Record
    Dim i                                       As Long
    Dim cuOldField, cuNewField                  As Cumulus5.Field
    
    'Erzeugung des Cumulus 5 Objektes zur Verbindung zum Cumulus Client / Single User
    Set cuApplication = CreateObject("Cumulus5.Application")
    Set cuRecords = cuApplication.FrontCollection.SelectedRecords
    
    For i = 0 To cuRecords.Count - 1
        Set cuRecord = cuRecords.Item(i)
        Set cuOldField = cuRecord.Fields.ItemByID("{AF4B2E0B-5F6A-11D2-8F20-0000C0E166DC}") 'Notizen
        Set cuNewField = cuRecord.Fields.ItemByID("{AF4B2E34-5F6A-11D2-8F20-0000C0E166DC}") 'Objektbeschreibung (funktioniert nur wenn der Katalog vorher fr IPTC vorbereitet wurde)
        cuNewField.Value = cuOldField.Value
        cuRecord.Save
    Next
    End
End Sub