Typen unverträglichkeit
03.03.2020 10:59:47
X
Ich habe eine Formel die beim durchführen folgenden Fehler wiedergibt "Typen Unverträglich":
Und ich weiß nicht was ich Falsch gemacht habe und bräuchte hilfe
Es wird der Wert x von einer Tabelle in der anderen Gesucht und der wert y aus dem Array, um Wert Z zu erhalten.
Nur beide zusammen ergeben ein Unikat ansonsten sind nur Duplikate vorhanden
ein Beispiel von links nach rechts in 2 spalten:
X: A, A, A, B, B, B, C, C, C
Y: 1, 2, 3, 1, 2, 3, 1, 2, 3
Z: W1, W2, W3, W4, usw.
MonateZahl() = Array("1",...,"15")
For m = 3 To 14
If IsError(Application.Index(.Range("I4:I" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row), Application.Match(M_IMP.Cells(Zeile, 1).Value & MonateZahl(m),
Application.Index(.Range("F4:F" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row) & .Range("H4:H" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row), 0), 0))) Then
M_IMP.Cells(Zeile, SprungSpalte).Value = ""
Else
M_IMP.Cells(Zeile, SprungSpalte).Value = Application.Index(.Range("I4:I" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row),
Application.Match(M_IMP.Cells(Zeile, 1).Value & MonateZahl(m),
Application.Index(.Range("F4:F" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row) & .Range("H4:H" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row), 0), 0))
End If
Next m
MFG
X