Fehlermeldung: Typen unverträglich
22.01.2006 16:39:05
Peter
Ich erhalte eine Fehlermeldung bei dieser Ereignisprozedur und
finde den Fehler nicht.
Wer kann helfen?
Danke Peter
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShQ
Dim ShZ
Dim lngRow
Dim LRow
Set ShQ = Sheets("Tabelle1")
Set ShZ = Sheets("Tabelle2")
lngRow = ShZ.Cells(Rows.Count, 1).End(xlUp).Row
For LRow = lngRow To 9 Step -1
'Fehler>> Typen unverträglich
If ShZ.Range(ShZ.Cells(LRow, 1), ShZ.Cells(LRow, 8)) = _
ShZ.Range(ShZ.Cells(lngRow, 1), ShZ.Cells(lngRow, 8)) Then
ShZ.Cells(LRow, 9) = ShQ.Cells(Target.Row, Target.Column + 2)
End If
Next LRow
End Sub