VBA: On Error go to Fehler
10.01.2004 12:10:21
Ernst Dunkel
Ich will in meinen Makros Fehler abfangen.
Der Beispiel Code 2 funktioniert, wenn der Wert in H7 nicht im Range B17 bis E29 vorhanden ist.
Im Beispiel Code 1 funktioniert, das selbe nicht. Was mache ich hier falsch?
Für eine antwort bin ich dankbar.
mfg
Ernst Dunkel
'1. Hier funktioniert On Error nicht
Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'Funktioniert
On Error GoTo fehler
If Target.Address = ("$H$7") Then
Range("$J$11").FormulaLocal = "=SVERWEIS(H7;'2. Klima'!B17:E29;4;0)"
End If
Exit Sub
fehler: MsgBox ("Wert nicht vorhanden")
End Sub
'2. Hier funktioniert On Error
Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'Funktioniert
On Error GoTo fehler
If Target.Address = ("$H$7") Then
Range("$J$11") = WorksheetFunction.VLookup(Target, Worksheets("2. Klima").Range("$B$17:$E$29"), 4, 0)
End If
Exit Sub
fehler: MsgBox ("Wert nicht vorhanden")
End Sub
Anzeige