ich würde gerne mit vba prüfen lassen ob alle Zellen in Tabellenblatt 2 leer sind!
Da ich nicht gerade fit in vba bin hoffe ich dass mir hier jemand helfen kann
Lieben Gruß
Susanne
Option Explicit
Sub Susanne()
If Worksheets("Tabelle2").UsedRange.SpecialCells(xlCellTypeLastCell).Address = "$A$1" _
And Worksheets("Tabelle2").Range("A1") = "" Then
MsgBox "Tabelle2 ist leer"
End If
End Sub
Sub tt()
If WorksheetFunction.CountA(Sheets(2).Cells) = 0 Then
MsgBox "Leer"
Else
MsgBox "nicht leer"
End If
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Sub xx()
MsgBox IIf(WorksheetFunction.CountA(Sheets(2).Cells) = 0, "Leer", "nicht leer")
End Sub
Greetz Renee