set aFolder to (choose folder with prompt "Bitte einen Ordner wählen.") as Unicode text  
  
tell application "Finder"  
 set allFiles to files of folder aFolder  
  
 -- eine Liste mit Änderungsdatumvorbereiten  
 set dateList to {}  
 -- eine Schleife durch die Namen  
 repeat with n from 1 to count allFiles  
 -- das aktuelle Element  
 set curFile to item n of allFiles  
 --Änderungsdatum  
 set curDate to modification date of curFile  
  
 -- Datumsformat ändern 
 set curDay to text -2 thru -1 of ("0" & curDate's day)  
 set curMonth to text -2 thru -1 of ("0" & ((month of curDate) * 1))  
 set curYear to ((year of curDate) as text)  
  
 set newDate to curDay & "." & curMonth & "." & curYear  
  
 set end of dateList to newDate  
 end repeat  
  
  
 -- eine Liste mit Dateinamen vorbereiten  
 set nameList to {}  
 -- eine Schleife durch die Namen  
 repeat with n from 1 to count allFiles  
 -- das aktuelle Element  
 set curFile to item n of allFiles  
 --Änderungsdatum  
 set curName to name of curFile  
  
 set end of nameList to curName  
 end repeat  
  
end tell  
  
-- die Liste in einen String verwandeln  
set AppleScript's text item delimiters to return  
set dateString to every text item of dateList as string  
set nameString to every text item of nameList as string  
set AppleScript's text item delimiters to {""}  
  
  
-- die Liste mit TextEdit anzeigen  
tell application "TextEdit"  
 activate  
 make new document  
 set text of document 1 to "Pdfs wurden hinzugefügt am:" & return & dateString & nameString 

set aFolder to (choose folder with prompt "Bitte einen Ordner wählen.") as Unicode text 
set logFile to ((path to desktop) as string) & "dateiliste.csv" 
 
tell application "Finder" 
	set allFiles to files of folder aFolder 
	 
	-- eine Schleife durch die Namen   
	repeat with curFile in allFiles 
		--Änderungsdatum   
		set curDate to modification date of curFile 
		-- Dateiname 
		set curName to name of curFile 
		 
		-- Datumsformat ändern  
		set curDay to text -2 thru -1 of ("0" & curDate's day) 
		set curMonth to text -2 thru -1 of ("0" & ((month of curDate) * 1)) 
		set curYear to ((year of curDate) as text) 
		set newDate to curDay & "." & curMonth & "." & curYear 
		 
		-- CSV-Zeile schreiben 
		my logString(curName & ";" & newDate, logFile) 
	end repeat 
end tell 
 
on logString(theString, logFile) 
	try 
		set logFile1 to quoted form of (POSIX path of logFile) as text 
		do shell script ("echo '" & theString & "' >> " & logFile1 as text) 
		return true 
	on error 
		return false 
	end try 
end logString 

on adding folder items to this_folder after receiving fileList 
  repeat with aFile in fileList 
    tell application "Finder" to set curName to name of aFile 
    if curName ends with ".pdf" then 
      # die aktuelle Zeit 
      set curDate to ((current date) as string) 
      # den aktuellen String zusammenfègen 
      set repString to curName & tab & curDate & return 
      # den Handler aufrufen 
      writeDate(repString) 
    end if 
  end repeat 
end adding folder items to 
 
on writeDate(repString) 
  set filePath to ((path to desktop as string) & "Rapport.txt") 
  try 
    open for access file filePath with write permission 
    write repString to file filePath starting at eof 
    close access file filePath 
  on error 
    try 
      close access file filePath 
    end try 
  end try 
end writeDate 

set myDlg to display dialog "Stichtag eingeben: (z.B. 12.03.2022)" default answer "" buttons {"Abbrechen", "OK"} default button "OK" 
set myStichtag to text returned of myDlg 
 
set myFormel to "=ZÄHLENWENN(B1:B14;\">=\"&C3)" as text 

tell application "Microsoft Excel" 
	activate 
	open logFile 
	delay 0.5 
	select sheet "dateiliste.csv" 
	select range "C3" 
	set value of active cell to myStichtag as text 
	select range "C5" 
	set value of active cell to myFormel 
end tell 

set aFolder to (choose folder with prompt "Bitte einen Ordner wählen.") as Unicode text 
tell application "Finder" to set folderName to name of folder (aFolder as string) 
 
set logFile to ((path to desktop) as string) & folderName & ".csv" 
 
set myDlg to display dialog "Stichtag eingeben: (z.B. 12.03.2022)" default answer "12.03.2022" buttons {"Abbrechen", "OK"} default button "OK" 
set myStichtag to text returned of myDlg 
 
tell application "Finder" 
	set allFiles to files of folder aFolder 
	 
	-- eine Schleife durch die Namen    
	repeat with curFile in allFiles 
		--Änderungsdatum    
		set curDate to modification date of curFile 
		-- Dateiname  
		set curName to name of curFile 
		 
		-- Datumsformat ändern   
		set curDay to text -2 thru -1 of ("0" & curDate's day) 
		set curMonth to text -2 thru -1 of ("0" & ((month of curDate) * 1)) 
		set curYear to ((year of curDate) as text) 
		set newDate to curDay & "." & curMonth & "." & curYear 
		 
		-- CSV-Zeile schreiben  
		my logString(curName & ";" & newDate & ";" & myStichtag, logFile) 
	end repeat 
end tell 
 
on logString(theString, logFile) 
	try 
		set logFile1 to quoted form of (POSIX path of logFile) as text 
		do shell script ("echo '" & theString & "' >> " & logFile1 as text) 
		return true 
	on error 
		return false 
	end try 
end logString