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
|