|  
                                             
	Ok zwei Sachen ich hab bisschen getestet und: 
	  
	Wenn die mappe oder das Sheet geschützt ist bekomm ich den Fehler. 
	Liegt es vllt am schreibschutz ? 
	Dazu teste mal ob irgendein anderes Makro geht sowas wie 
	  
Sub Test()
Dim T integer
T = 1+1
MsgBox T
End Sub 
	  
	Oder  
	  
	  
Sub Test()
Cells(1,1).Value= Cells(1,2).Value + Cells(1,3).Value
End Sub  
	  
	Versuch die mal einfach aufzurufen mit  
Sub Auf()
Application.Run(Test)
End Sub 
	  
	Wenn das klappt dann liegt der Fehler woanders 
     |