Hab mir ein Code geschrieben der mir 3 Kriterium prüfen soll in 3 Matrixbereichen.
Sub Gewichte()
Sheets("Daten").Activate
Dim lngZeile As Long, rngBereich1 As Range, rngBereich2 As Range, rngBereich3 As Range, _
intErg As Integer
lngZeile = Range("BV65536").End(xlUp).Row
Set rngBereich1 = Range(Cells(2, 53), Cells(lngZeile, 53))
Set rngBereich2 = Range(Cells(2, 74), Cells(lngZeile, 74))
Set rngBereich3 = Range(Cells(2, 67), Cells(lngZeile, 67))
With Range("CG2")
.Offset(-1, 0) = "10100"
intErg = Application.Match("BA2 & BV2 & CG2", rngBereich1 & rngBereich2 & rngBereich3, _
0)
.Value = intErg
End With
End Sub
Leider kommt bei Application..........
immer die Fehlermeldung Typen unverträglich Fehler 13!!?
Hat jemand einen Tipp wo der Fehler liegen könnte!
Gruss und besten Dank
TOM