and here is part two:
    # Store random values in csv-file
    try:
        
        f = open("E:/CORINE/CP_Paper3/RunP/laufRunPen.csv", "a")
        try:
            
            # Write a string to a file
            f.write(str(rnumber)+";"+str(rin)+";"+str(rfo)+";"+str(rpa)+";"+str(rwe)+";"+str(rro)+";"+str(rqgre)+";"+str(rqwir)+";"+str(rqkre)+";"+str(rqsch)+";"+str(rqaut)+";"+str(rqtun)+";"+str(rqbac)+";"+str(rqflu)+";"+str(rqeis)+";\n")
            
        finally:
            f.close()
    except IOError:
        pass
    
    
    #REclassify crossing raster
    querrec = Reclassify(quer, "Value", RemapValue([[0,rqgreint],[1,rqwirint],[2,rqkreint],[3,rqschint],[4,0], [5,rqautint],[6,rqtunint],[7,rqbacint], [8,rqfluint], [9,rqeisint]]))
    
    #Calculate change in Crossingraster in percent
    querrecfloat = 1.0 - (querrec / 10000.0)
    
    #Aggregate crossing raster to 1sqkm
    queragg = Aggregate(querrecfloat, 10, "MINIMUM", "EXPAND", "DATA")
    
    #Use crossing raster to modify the influence of road dataset
    inroab = inroa*queragg
    
    #calculate ressource selection function (rsf) for the habitat model
    rcalcstep2 = rin + (rfo*infor) + (rpa*inpas) + (rwe*inwet) + (rro*inroab)
    
    #Substract cities and waterbodies, because the are not suitable
    citya = city /1.0
    watera = water /1.0
    rcalcstep2a = ((rcalcstep2 * citya) * watera)
    
    #Calculate Min and Max values of the rsf
    min1 = str(arcpy.GetRasterProperties_management(rcalcstep2a, "Minimum"))
    max1 = str(arcpy.GetRasterProperties_management(rcalcstep2a, "Maximum"))
    
    #Change decimal point from "," to "."
    min11 = min1.replace(",", ".")
    max11 = max1.replace(",", ".")
    min111 = float(min11)
    max111 = float(max11)
    
    #scale everything to the range of 0.0 to 1.0
    rcalcstep3 = ((rcalcstep2a - min111)/(max111 - min111))
        
    #Create Cost Raster for CostDistance analysis (and add 0.00001 because the value can't be 0)
    incostraster = 1.00001 - rcalcstep3
        
    #Define Backlinkraster
    outBkLinkRaster = "E:/CORINE/CP_Paper3/RunP/backlink"
    
    #Cost Distance Analysis
    outCostDist = CostDistance(insourcedata, incostraster, "", outBkLinkRaster)
        
    #create random points in the destination area
    
    arcpy.CreateRandomPoints_management("E:/CORINE/CP_Paper3/RunP", "randFrankreich", ZielFrankreich, "", 1)
    arcpy.CreateRandomPoints_management("E:/CORINE/CP_Paper3/RunP", "randItalien", ZielItalien, "", 1)
    arcpy.CreateRandomPoints_management("E:/CORINE/CP_Paper3/RunP", "randSchweiz", ZielSchweiz, "", 1)
    arcpy.CreateRandomPoints_management("E:/CORINE/CP_Paper3/RunP", "randVogesen", ZielVogesen, "", 1)
    
    #Change points to Feature Layer
    arcpy.MakeFeatureLayer_management("E:/CORINE/CP_Paper3/RunP/randFrankreich.shp", "FPFrankreich")
    arcpy.MakeFeatureLayer_management("E:/CORINE/CP_Paper3/RunP/randItalien.shp", "FPItalien")
    arcpy.MakeFeatureLayer_management("E:/CORINE/CP_Paper3/RunP/randSchweiz.shp", "FPSchweiz")
    arcpy.MakeFeatureLayer_management("E:/CORINE/CP_Paper3/RunP/randVogesen.shp", "FPVogesen")
    arcpy.SaveToLayerFile_management("FPFrankreich","E:/CORINE/CP_Paper3/RunP/FPFrankreich_lyr.lyr")
    arcpy.SaveToLayerFile_management("FPItalien","E:/CORINE/CP_Paper3/RunP/FPItalien_lyr.lyr")
    arcpy.SaveToLayerFile_management("FPSchweiz","E:/CORINE/CP_Paper3/RunP/FPSchweiz_lyr.lyr")
    arcpy.SaveToLayerFile_management("FPVogesen","E:/CORINE/CP_Paper3/RunP/FPVogesen_lyr.lyr")
    
    # CostPath Analysis
    outCostPathFrankreich = CostPath("E:/CORINE/CP_Paper3/RunP/FPFrankreich_lyr.lyr", outCostDist, outBkLinkRaster, "BEST_SINGLE", "CID")
    outCostPathItalien= CostPath("E:/CORINE/CP_Paper3/RunP/FPItalien_lyr.lyr", outCostDist, outBkLinkRaster, "BEST_SINGLE", "CID")
    outCostPathschweiz = CostPath("E:/CORINE/CP_Paper3/RunP/FPSchweiz_lyr.lyr", outCostDist, outBkLinkRaster, "BEST_SINGLE", "CID")
    outCostPathVogesen = CostPath("E:/CORINE/CP_Paper3/RunP/FPVogesen_lyr.lyr", outCostDist, outBkLinkRaster, "BEST_SINGLE", "CID")
    
    # Conversion to polyline
    arcpy.RasterToPolyline_conversion(outCostPathFrankreich, "E:/CORINE/CP_Paper3/RunP/CPPolyFrankreich.shp", "NODATA", "", "NO_SIMPLIFY")
    arcpy.RasterToPolyline_conversion(outCostPathItalien, "E:/CORINE/CP_Paper3/RunP/CPPolyItalien.shp", "NODATA", "", "NO_SIMPLIFY")
    arcpy.RasterToPolyline_conversion(outCostPathschweiz, "E:/CORINE/CP_Paper3/RunP/CPPolySchweiz.shp", "NODATA", "", "NO_SIMPLIFY")
    arcpy.RasterToPolyline_conversion(outCostPathVogesen, "E:/CORINE/CP_Paper3/RunP/CPPolyVogesen.shp", "NODATA", "", "NO_SIMPLIFY")
    
    #Dissolve Polylines in one line (because the line is divided in two lines, since the starting cell in the CostPath analysis has a different value
    arcpy.Dissolve_management("E:/CORINE/CP_Paper3/RunP/CPPolyFrankreich.shp", "E:/CORINE/CP_Paper3/RunP/CPPolyFrankreich_dissolve.shp","", "", "SINGLE_PART","DISSOLVE_LINES")
    arcpy.Dissolve_management("E:/CORINE/CP_Paper3/RunP/CPPolyItalien.shp", "E:/CORINE/CP_Paper3/RunP/CPPolyItalien_dissolve.shp","", "", "SINGLE_PART","DISSOLVE_LINES")
    arcpy.Dissolve_management("E:/CORINE/CP_Paper3/RunP/CPPolySchweiz.shp", "E:/CORINE/CP_Paper3/RunP/CPPolySchweiz_dissolve.shp","", "", "SINGLE_PART","DISSOLVE_LINES")
    arcpy.Dissolve_management("E:/CORINE/CP_Paper3/RunP/CPPolyVogesen.shp", "E:/CORINE/CP_Paper3/RunP/CPPolyVogesen_dissolve.shp","", "", "SINGLE_PART","DISSOLVE_LINES")
    
    #Merge with result storage file
    arcpy.Append_management("E:/CORINE/CP_Paper3/RunP/CPPolyFrankreich_dissolve.shp", "E:/CORINE/CP_Paper3/RunP/CPFrankreich.shp", "TEST") 
    arcpy.Append_management("E:/CORINE/CP_Paper3/RunP/CPPolyItalien_dissolve.shp", "E:/CORINE/CP_Paper3/RunP/CPItalien.shp", "TEST", "", "" )
    arcpy.Append_management("E:/CORINE/CP_Paper3/RunP/CPPolySchweiz_dissolve.shp", "E:/CORINE/CP_Paper3/RunP/CPSchweiz.shp", "TEST", "", "" )
    arcpy.Append_management("E:/CORINE/CP_Paper3/RunP/CPPolyVogesen_dissolve.shp", "E:/CORINE/CP_Paper3/RunP/CPVogesen.shp", "TEST", "", "" )
    
    #Extract ans store values of the CostDistance analysis in corresponding csv file
    cdValueFrance = outCostDist * PunktFrankreich
    cdValueFrance1= str(arcpy.GetRasterProperties_management(cdValueFrance, "Maximum"))
    cdValueItaly = outCostDist * PunktItalien
    cdValueItaly1= str(arcpy.GetRasterProperties_management(cdValueItaly, "Maximum"))                    
    cdValueSchweiz = outCostDist * PunktSchweiz
    cdValueSchweiz1= str(arcpy.GetRasterProperties_management(cdValueSchweiz, "Maximum"))
    cdValueVogesen = outCostDist * PunktVogesen
    cdValueVogesen1= str(arcpy.GetRasterProperties_management(cdValueVogesen, "Maximum"))                         
     
    
    try:
        f = open("E:/CORINE/CP_Paper3/RunP/CDWerte_der_Laeufe.csv", "a")
        try:
             f.write(str(rnumber)+";"+str(cdValueFrance1)+";"+str(cdValueItaly1)+";"+str(cdValueSchweiz1)+";"+str(cdValueVogesen1)+";\n")
 
        finally:
            f.close()
    except IOError:
        pass
    
    
    #Reset variables to None
    
    rin = None
    rfo = None
    rpa = None
    rwe = None
    rro = None
    rqgre = None
    rqwir = None
    rqkre = None
    rqsch = None
    rqaut = None
    rqtun = None
    rqbac = None
    rqflu = None
    rqeis = None
    rqgreint = None
    rqwirint = None
    rqkreint = None
    rqschint = None
    rqautint = None
    rqtunint = None
    rqbacint = None
    rqfluint = None
    rqeisint = None
    querrec = None
    querrecfloat = None
    queragg = None
    inroab = None
    rcalcstep2 = None
    citya = None
    watera = None
    rcalcstep2a = None
    min1 = None
    max1 = None
    min11 = None
    max11 = None
    min111 = None
    max111 = None
    rcalcstep3 = None
    incostraster = None
    outBkLinkRaster = None
    outCostDist = None
    PFrankreich = None
    PItalien = None
    PSchweiz = None
    PVogesen = None
    outCostPathFrankreich = None
    outCostPathItalien= None
    outCostPathschweiz = None
    outCostPathVogesen = None
    cdValueFrance = None
    cdValueFrance1= None
    cdValueItaly = None
    cdValueItaly1= None                  
    cdValueSchweiz = None
    cdValueSchweiz1= None
    cdValueVogesen = None
    cdValueVogesen1= None
    rnumber = rnumber + 1
arcpy.CheckInExtension("spatial")
print "End of simulation"If anyone has any idea that would be great. I am completly lost and dont know what to do and nobody at my faculty has any idea on that subject. I'm trying to find the problem for two weeks now and I'm really close to going completly insane! :mad:Thanks a lot guys,maybe there is still hope,Dominik