Brauchst du so etwas?
With Sheets(“exposure“)
For x = 2 To lastrow
If .Cells(x, 5) = Tabelle2.Range(“B2“) and .Cells(x, 6) = Tabelle2.Range(“B3“) Then
Tabelle2.Cells(row, 4) =.Cells(x, 1)
Tabelle2.Cells(row, 6) = Cells(x, 9)
row = row + 1
End if
Next x
End with
Gruß
Holger
|