ich möchte mehrere Zellen zweier verschiedener Blätter miteinander vergleichen, bekomme aber ein Laufzeitfehler 13 "Typen unverträglich" innerhalb der ersten If Condition:
Woher kommt der Fehler?
Danke und Grüsse
Sub Auswertung()
Dim i, m As Long
Dim source As Worksheet
Dim klassifizierung As Worksheet
Set source = Workbooks("ControllerSpreadSheetMovements.xls").Sheets("Position Movements")
Set klassifizierung = Workbooks("Klassifizierung.xlsx").Sheets("Kauf")
For i = 6 To 20
For m = 6 To 74
If source.Cells(i, 21) = klassifizierung.Cells(m, 21) Then
If source.Cells(i, 22) = klassifizierung.Cells(m, 22) Or klassifizierung.Cells(m, _
_
22) = "" Then
If source.Cells(i, 23) = klassifizierung.Cells(m, 23) Or klassifizierung.Cells( _
_
m, 23) = "" Then
If source.Cells(i, 24) = klassifizierung.Cells(m, 24) Or klassifizierung. _
Cells(m, 24) = "" Then
If source.Cells(i, 25) = klassifizierung.Cells(m, 25) Or _
klassifizierung.Cells(m, 25) = "" Then
If source.Cells(i, 26) = klassifizierung.Cells(m, 26) Or _
klassifizierung.Cells(m, 26) = "" Then
source.Cells(i, 27).Value = klassifizierung.Cells(m, 30).Value
Exit For
End If
End If
End If
End If
End If
End If
Next m
Next i
End Sub