tell application "iCal"
    set allcalendars to name of calendars
    
    set mycalendar to choose from list allcalendars
    set mycalendar to item 1 of mycalendar
    
    display dialog "Suchwort" default answer ""
    set suchwort to text returned of the result
    
    set zusammenfassung to "Suchbegriff: " & suchwort & "
--------------------------"
    tell calendar mycalendar
        set myevents to every event whose summary contains suchwort
        repeat with theevent in myevents
            set zusammenfassung to zusammenfassung & "
" & (start date of theevent)
        end repeat
    end tell
end tell

tell application "TextEdit"
    activate
    set mydoc to make new document
    set text of mydoc to zusammenfassung
end tell