Zeilen zusammenführen mit VBA

[Flotter Feger]

Hallo,

du suchst nach einer Schnittmenge ... kann es sein, dass diese eventuell leer ist ?
Vielleicht einfach mal darauf prüfen ?

Code:

Set oRng = Intersect(Sheets(2).UsedRange, Sheets(2).Rows(lloTarget))

    If Not oRng Is Nothing Then

           If oRng.Cells(1).Value = "" Then
           
           '...

    End If