Exceltyp Mismatch-Fehler auf einem privaten Sub

Question

Ich habe diese Sub, die den Wert einer Zelle aktualisieren sollte, wenn eine entsprechende Zelle geändert wird, aber ich bekomme immer einen Fehler, der Fehler 13 Typ Mismatch, ive nachschlagen alle möglichen Quellen dieses Problem und kann nicht herausfinden, was es verursacht, hier ist mein Code, der das Problem präsentiert:

Private Sub Worksheet_Change(ByVal Target As range) 
'Adds unique keyA values 
'Check to see if the changed cell is in column H 
    If Not Intersect(Target, range("H:H")) Is Nothing Then 

     If Target.Cells.Value <> "" And Target.Row > 7 And Target.Row <= 20 Then 

'Update the "KeyA" value 
      range("A" & Target.Row).Value = Now() 

     End If 

    End If 
'Adds unique keyB values 
'Check to see if the changed cell is in column J 
    If Not Intersect(Target, range("J:J")) Is Nothing Then 

     If Target.Cells.Value <> "" And (Target.Row > "7" And Target.Row <= "27") Then 

'Update the "KeyB" value 
      range("M" & Target.Row).Value = Now() 

     End If 

    End If 

End Sub 

der Fehler tritt auf, wenn ich versuche, den Bereich seiner Prüfung auf Veränderung zu löschen. jede Hilfe bei der Ausarbeitung wäre sehr dankbar, danke!

Answer 1

Sie vergessen, dass Target ein Bereich ist und nicht unbedingt nur aus einer Zelle besteht. Wenn Sie Ihren Code ein bisschen anpassen sollte es funktionieren:

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim cell As Range 

'Adds unique keyA values 
'Check to see if the changed cell is in column H 
If Not Intersect(Target, Range("H:H")) Is Nothing Then 
    For Each cell In Target.Cells 
     If cell.Value <> vbNullString And Target.Row > 7 And Target.Row <= 20 Then 
      'Update the "KeyA" value 
      Range("A" & Target.Row).Value = Now() 
     End If 
    Next cell 
End If 

'Adds unique keyB values 
'Check to see if the changed cell is in column J 
If Not Intersect(Target, Range("J:J")) Is Nothing Then 
    For Each cell In Target.Cells 
     If cell.Value <> vbNullString And (Target.Row > "7" And Target.Row <= "27") Then 
      'Update the "KeyB" value 
      Range("M" & Target.Row).Value = Now() 
     End If 
    Next cell 
End If 

End Sub 

Grundsätzlich ist die Änderung ist, dass es jetzt jede Zelle im Bereich prüft Target und arbeitet, um Ihren Code für jede Zelle in diesem Bereich. Vorher haben Sie (möglicherweise) mehrere Target.Values mit "" verglichen. Das hat nicht funktioniert. Jetzt wird nur eine .Value mit "" verglichen und das sollte es lösen.