If nz = 3 Then '... Else MsgBox "Auf Zelle " & rng.Cells(i - 1).Address(False, False) & " folgen die ersten drei Leerzeilen." End If