On Error wird nicht ausgeführt
04.12.2003 07:30:53
Peter
seit der Neuinstallation meines PC's, wird die On Error Funktion nicht mehr ausgeführt. Wer hat eine Idee?
Sub Error_Test()
Sheets("Tabelle1").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
On Error Resume Next 'Wird nicht wirksam !!!!!!!
'On Error GoTo Ende 'Wird nicht wirksam !!!!!!
Sheets("Tabelle3").Select 'Falsche Auswahl um Error zu testen
Ende:
Sheets("Tabelle2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
Mldg = "Tabelle 2 ausgefüllt, On Error Test ok!!!!"
MsgBox Mldg, vbInformation, "Error Test"
Sheets("Tabelle1").Select
End Sub