|  
                                             
	ich bedanke mich für den Hinweis und schaue ob ich was anderes finde. 
	Vielleicht noch ganz interessant: 
	    'funktioniert (ist eine Zelle die damit geprüft wird) | bei .Address oder .Address(0,0) funktioniert es nicht 
	    MsgBox Application.WorksheetFunction.CountA(BelegungEnde) 
	    'also müsste das hier auch funktionieren, wenn rng richtig definiert ist: (ohne Address ohne (0,0) 
	    MsgBox Application.WorksheetFunction.CountA(rng) 
	leider kommt da immer 0 raus. 
	Das rng vernünftig definiert ist, nehme ich an, weil die MsgBox dafür funktioniert und das zu Erwartende gibt. Sehr komisch. 
     |