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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen