26.08.2020, 21:12
Hallo,
anscheinend spinnt da das Intersect bei ganzen Spalten. So sollte das keine Rolle mehr spielen:
anscheinend spinnt da das Intersect bei ganzen Spalten. So sollte das keine Rolle mehr spielen:
Sub Makro1()Gruß Uwe
Dim i As Long, j As Long
Dim rngZ As Range
Dim varQ As Variant
Dim varZ As Variant
With Range("B1", Cells(Rows.Count, 2).End(xlUp))
varQ = .Offset(, 3).Resize(, 2).Value
ReDim varZ(1 To UBound(varQ), 1 To 2)
For i = 1 To UBound(varQ)
If Len(varQ(i, 1)) Then
j = Application.Match(varQ(i, 1), Columns(2), 0)
If j Then
varZ(j, 1) = varQ(i, 1)
varZ(j, 2) = varQ(i, 2)
End If
End If
Next i
.Offset(, 3).Resize(UBound(varZ, 1), UBound(varZ, 2)).Value = varZ
Application.Intersect(Range("A1:F" & UBound(varZ, 1)), .Offset(, 3).EntireColumn.SpecialCells(xlCellTypeBlanks).EntireRow).Interior.Color = vbRed
End With
End Sub