ich habe eine tabellemit 88 zeilen
in 32 dieser 88 zeilen darf etwas stehen.
wenn der 33. eintrag erfolgt soll dieser automatisch gelöscht werden.
die anzahl der zellen fragen ich über "zählewenn" ab und über
"=WENN(G3>32;MakroStart();"")" fufe ich die fuktion "MakroStart" auf Function MakroStart()
MsgBox ("zuviel.")
Application.Run ("Undo")
End Function
die dann das makro UNDO
Sub Undo()
Application.Undo
MsgBox ("Eintag gelöscht")
End Sub
aufruft.
das makro wird zwar anufgerufen (die msgbox wird angezeigt, aber undo hat keine wirkung - warum nicht ???)
ich bin echt schon am verzweifeln
patrick