einfach
Sub Test()
Dim rngB As Range, rngRw As Range
On Error GoTo fail
With Range("A1:Z50000")
Set rngB = .SpecialCells(xlCellTypeBlanks)
End With
For Each rngRw In rngB.Rows
If WorksheetFunction.CountA(rngRw.EntireRow.Range(Cells(1), Cells(26))) Then Err.Raise 513
Next rngRw
On Error GoTo 0
fail:
Select Case Err.Number
Case 0
MsgBox "TRUE"
Case 513
MsgBox "FALSE"
End Select
End Sub
oder auch geschmacklos
Sub Chk()
Dim rngB As Range, rngRw As Range
On Error GoTo fail
With Range(Cells(1), Cells(Cells.Find("*", Cells(1), -4123, 2, 1, 2, False).Row, 26))
Set rngB = .SpecialCells(xlCellTypeBlanks)
End With
For Each rngRw In rngB.Rows
If WorksheetFunction.CountA(rngRw.EntireRow.Range(Cells(1), Cells(26))) Then Err.Raise 513
Next rngRw
On Error GoTo 0
fail:
Select Case Err.Number
Case 0, 1004
MsgBox "TRUE"
Case 513
MsgBox "FALSE"
Case Else
MsgBox "UNKNOWN"
End Select
End Sub
|