tell application "Finder"
    --Auswahl definieren
    set myselectedfiles to the selection
    --Zielordner definieren
    set targetfolder to choose folder
    --schleife mit einzelnen Files
    repeat with thefile in myselectedfiles
        --Erstellungsdatum auslesen
        set mydatum to creation date of thefile
        --ordnername berechnen
        set subfoldername to (word 3 of (mydatum as string)) & " " & (year of mydatum) as string
        --prüfen, ob ordner besteht
        if (exists (folder subfoldername of folder targetfolder)) then
            set targetfolder2 to folder subfoldername of folder targetfolder
            --wenn nein: ordner erstellen
        else
            make new folder at folder targetfolder with properties {name:subfoldername}
        end if
        --file in den ordner kopieren
        copy thefile to folder subfoldername of folder targetfolder
        -- Ende Schleife        
    end repeat
end tell

tell application "Finder"
    set this_folder to choose folder "your Ueberordner Rechnungen"
    set this_list to every item of this_folder
    repeat with i from 1 to number of items in the this_list
        set nfo to info for ((item i of the this_list) as alias)
        
        set cd to creation date of nfo
        set na to name of nfo
        
        if cd contains "Dezember 2010" or na contains "2010-12" then
            move item i of the this_list to ((this_folder as string) & "Dezember 2010")
        end if
        
        if cd contains "Januar 2011" or na contains "2011-01" then
            move item i of the this_list to ((this_folder as string) & "Januar 2011")
        end if
        
        if cd contains "Februar 2011" or na contains "2011-02" then
            move item i of the this_list to ((this_folder as string) & "Februar 2011")
        end if
    end repeat
end tell