Hallo,
ich möchte durch folgenden Code: If ws.Cells(2, i).Value = arrCriteria() then
bewirken, dass etwas passiert wenn der Wert der Zelle in Zeile 2 in Abhängigkeit von i dann etwas macht, wenn er gleich einem Wert eines Arrays ist.
Leider erhalte ich die Fehlermeldung "Typenunverträglichkeit". Kann mir jemand sagen wieso, bzw. was ich ändern muss?
Der komplette Code befindet sich unten.
Vielen Dank im Voraus
Manuel
Sub kopiereneinfügengundh()
Dim ws As Worksheet
Set ws = Tabelle1
Dim lrow As Integer
Dim Oldcell As Range
Dim arrCriteria() As String
Dim lngCriteriaCount As Long
lngCriteriaCount = 2
ReDim arrCriteria(0 To lngCriteriaCount - 1)
arrCriteria(0) = "Category"
arrCriteria(1) = "Part#"
lrow = ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To 10
Set Oldcell = ws.Cells(2, i)
If ws.Cells(2, i).Value = arrCriteria() Then
ws.Range(ws.Cells(2, i), ws.Cells(lrow, i)).Copy Tabelle4.Cells(10, 10)
End If
Next
End Sub