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
Um zu überprüfen, ob alle Zellen in einem Tabellenblatt leer sind, kannst du VBA (Visual Basic for Applications) verwenden. Hier sind die Schritte, um dies zu tun:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf "Einfügen" und wähle "Modul", um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
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 SubSchließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, um zu prüfen, ob die Tabelle leer ist.
Fehler: "Kompatibilitätsprobleme mit Excel-Versionen"
Fehler: "Ungültige Arbeitsblattnummer"
Worksheets(2)).Falls du keine VBA-Programmierung verwenden möchtest, gibt es auch eine einfache Formel, um zu prüfen, ob eine Tabelle leer ist:
Gehe zu einer Zelle deiner Wahl und gib die folgende Formel ein:
=ANZAHL2(Tabelle1!$1:$65536)=0Diese Formel gibt WAHR zurück, wenn die Tabelle leer ist, und FALSCH, wenn sie nicht leer ist.
Hier sind zwei praktische Beispiele zur Überprüfung einer Tabelle auf Leerheit:
VBA-Beispiel
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 SubExcel-Formel Beispiel
=ANZAHL2(Tabelle1!$1:$65536)=0 in einer Zelle, um den Status der Tabelle zu überprüfen.Nutze die Funktion COUNTBLANK, um die Anzahl der leeren Zellen in einer bestimmten Range zu zählen. Beispiel:
=COUNTBLANK(Tabelle1!A1:Z100)Du kannst auch bedingte Formatierungen verwenden, um leere Zellen in der Tabelle hervorzuheben.
1. Wie kann ich überprüfen, ob eine bestimmte Zelle leer ist?
Du kannst dies mit der Formel =ISTLEER(A1) überprüfen, wobei A1 die Zelle ist, die du kontrollieren möchtest.
2. Was passiert, wenn ich in einer Excel-Version ohne VBA arbeite?
In diesem Fall kannst du die oben genannten Formeln verwenden, um zu prüfen, ob deine Excel-Tabelle leer ist.