hätte nochmal eine Frage! Wie kann ich überprüfen ob alle Zellen in einem Tabellenblatt leer sind!
Gruß
Tobias
Public Sub TabBlatt_leer_I()
If WorksheetFunction.CountA(Worksheets(2).Cells) = 0 Then
MsgBox "Tabelle2 ist leer!", _
64, " Info für " & Application.UserName
Else
MsgBox "Tabelle2 ist NICHT leer!", _
48, " Info für " & Application.UserName
End If
End Sub
Gruß Peter
Option Explicit
Sub tt()
Dim Zelle As Range, Nichtleer As Boolean
For Each Zelle In ActiveSheet.UsedRange.Cells
If Zelle.Value "" Then
Nichtleer = True
Exit For
End If
Next Zelle
If Nichtleer = False Then MsgBox "Blatt leer"
End Sub
Gruß
Reinhard