Fehler richtig Abfangen
08.04.2007 10:58:26
Heinz
Habe unteren Code
Der bei Doppelklick im Sheets "Eingabe" in den Zellen E10:E17 zur richtigen Zeile im Sheets "Artikeln" bringt wo die Nummer Ident ist.
Das funkt. auch.
Nur wenn die Nummer im "Artikel" noch nicht vorhanden ist kommt ein Debugfehler.
Könnte man den Fehler nicht abfangen ? Fehlernummer ist 91
Zb. " SAP Nummer noch nicht vorhanden "
Könnte mir bitte jemand weiterhelfen .
Danke & Gruß Heinz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range
If Intersect(Target, [E10:E17]) Is Nothing Then Exit Sub
Sheets("Artikeln").Visible = True
Cancel = True
Worksheets("Artikeln").Activate
With Worksheets("Artikeln")
ActiveSheet.Unprotect
.Range("A2:F" & .Range("A65536").End(xlUp).Row).Font.ColorIndex = 5
.Range("A2:F" & .Range("A65536").End(xlUp).Row).Interior.ColorIndex = xlNone
Set c = .Range("A2:A65536").Find(Target.Value)
.Range("A" & c.Row & ":F" & c.Row).Font.ColorIndex = 3
.Range("A" & c.Row & ":F" & c.Row).Interior.ColorIndex = 35
If Not c Is Nothing Then c.Select
ActiveSheet.Protect
End With
End Sub
Anzeige