Worksheet_Change Ereignis, das run-time error 13 - Type Mismatch " Beim Einfügen von Zeilen

Bin ich mit Excel-VBA und habe ein worksheet_change Ereignis wie folgt:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("rel_type") Then
       --some code
    End If
End Sub

Code funktioniert Super, wenn ich eine änderung vornehmen, um den Bereich mit dem Namen "rel_type". Jedoch wenn ich eine Zeile einfügen, sonst nirgends in der Tabelle, bekomme ich die run-time error 13 - type mismatch " auf die erste Zeile der Sub. Weiß jemand einen workaround? Ich bin nicht so vertraut mit dem Worksheet_Change-Ereignis und kann nicht scheinen zu finden, eine gute Dokumentation (oder zumindest die Dokumentation, Referenzen, warum dieser Fehler auftreten würde). Danke.

InformationsquelleAutor rryanp | 2012-03-22
  1. 5

    Ist es das, was Sie versuchen?

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Whoa

    If Not Intersect(Target, Range("rel_type")) Is Nothing Then
       Application.EnableEvents = False

       '--some code
    End If

LetsContinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub

    FOLLOWUP

    Ja, das ist genau das was ich brauchte! Danke! Es funktionierte wie ein Charme. Ich war nicht vertraut mit Intersect oder die EnableEvents-option, so dass ich eine Menge gelernt hier-ich weiß es zu schätzen. – rryanp 16 Sekunden vor

    SCHNEIDEN: Die Intersect-Methode gibt eine Range-Objekt repräsentiert die Schnittmenge von zwei oder mehr Bereiche.

    Finden Sie unter diesem link

    Thema: Intersect-Methode [Excel 2003 VBA Language Reference]

    Link: Intersect - MSDN

    ENABLEEVENTS: verwenden Sie die EnableEvents-Eigenschaft, um zu verhindern, dass mögliche endlos-Schleifen, die der VBA-code könnte initiieren. Wenn Sie diese Eigenschaft einstellen, um False VBA wird nicht heben, Veranstaltungen und die Worksheet_Change Ereignis wird nur einmal ausgeführt. Auch sollten Sie immer sicherstellen, dass EnableEvents-Eigenschaft wieder auf True zu aktivieren Ereignisse genannt werden, die normalerweise die nächste Zeit.

    HTH

    Sid

    • Ja, das ist genau das was ich brauchte! Danke! Es funktionierte wie ein Charme. Ich war nicht vertraut mit Intersect oder die EnableEvents-option, so dass ich eine Menge gelernt hier-ich weiß es zu schätzen.
    • Meinen Beitrag aktualisiert mit mehr Infos 🙂
    InformationsquelleAutor Siddharth Rout
Schreibe einen Kommentar