Laufzeitfehler 1004 bei application.undo
18.10.2004 10:38:56
Uli
ich verzweifle gerade mit einem application.undo-Problem.
Ich verwende folgendes Coding (
Sub wird durch Worksheet_Change-Event aufgerufen):
Public
Sub Validation(ByVal Target As Excel.Range) <- Das "Public" steht natürlich in der gleichen Zeile
Application.ScreenUpdating = False
Application.EnableEvents = False
V_Col = Target.Column
V_Row = Target.row
If ...
ElseIf Cells(V_RowHead, V_Col).Style = "VWV-Rel." And (Cells(V_Row, V_Col).Value <> 1 And Cells(V_Row, V_Col).Value <> 0) Then
MsgBox ("Geht nicht!")
Call Undo
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Sub Undo()
application.undo
End Sub
Ich verwende dies Undo-Funktionalität auch in einem anderen Workbook - da klappt's hervorragend, aber hier bekomme ich immer den LZF 1004 (Die Methode 'Undo' ist für das Objekt '_Application' fehlgeschlagen).
Hat jemand eine Idee, was da falsch läuft?
Vielen Dank im Voraus!
Uli