Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfen, ob Zellen leer sind

Forumthread: Prüfen, ob Zellen leer sind

Prüfen, ob Zellen leer sind
04.01.2003 23:10:30
Martin Springer
Hallo,

Ich möchte wissen, ob alle Zellen innerhalb einer Markierung leer sind. Mein eigener Versuch geht nur dann, wenn nur eine einzige Zelle markiert ist:

If IsEmpty(Selection) = False Then MsgBox "voll" Else MsgBox "leer"

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Prüfen, ob Zellen leer sind
04.01.2003 23:36:01
Urs
Sub prüfen()
Hallo Martin
einfache Variante, die läuft:

Sub prüfen()
Dim rng As Range
For Each rng In Selection
If IsEmpty(rng) = False Then
MsgBox rng.Address & " ist voll"
Exit Sub
End If
Next rng
MsgBox "leer"
End Sub

liebe Grüsse
Urs

Anzeige
Re: Prüfen, ob Zellen leer sind
05.01.2003 00:08:45
Boris
Hallo Martin,

Die Funktion im Beispiel liefert wahr, wenn alle 40 Zellen im Bereich D1:E20 leer sind, ansonsten (naturgemäß;-))) FALSCH.

Gruß Boris

P.S.: Als Excel-Funktion: =ANZAHLLEEREZELLEN(D1:E20)


Re: Prüfen, ob Zellen leer sind
05.01.2003 00:41:29
L.Vira
Option Explicit
Sub leer()
If Selection.Cells.Count = _
WorksheetFunction.CountBlank(Selection) Then
MsgBox "Selektion ist leer!"
End If
End Sub
Anzeige
Und die einfachste aller Varianten:
05.01.2003 01:33:54
Boris

Gruß Boris

P.S.: Ist mir auch grad erst in den Sinn gekommen;-))

hinweis leer ungleich leer
05.01.2003 10:28:46
andre
hallo allerseits,
noch ein hinweis, was leer ist - siehe kommentare:
die beiden varianten bringen unterschiedliche ergebnisse:

gruss andre


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Prüfen, ob Zellen leer sind


Schritt-für-Schritt-Anleitung

Um in Excel zu überprüfen, ob Zellen leer sind, kannst Du sowohl einfache Formeln als auch VBA verwenden. Hier sind die Schritte für beide Methoden:

Methoden in Excel:

  1. Mit der Formel ANZAHLLEEREZELLEN:

    • Verwende die Formel =ANZAHLLEEREZELLEN(A1:B10), um die Anzahl der leeren Zellen im Bereich A1:B10 zu ermitteln.
  2. Mit einer WENN-Funktion:

    • Du kannst auch =WENN(A1=""; "Leer"; "Nicht leer") benutzen, um zu prüfen, ob eine bestimmte Zelle leer ist.

VBA-Code zur Prüfung auf leere Zellen:

  1. Öffne den VBA-Editor (Alt + F11).

  2. Füge ein neues Modul hinzu.

  3. Kopiere den folgenden Code:

    Sub prüfen()
       Dim rng As Range
       For Each rng In Selection
           If IsEmpty(rng) = False Then
               MsgBox rng.Address & " ist voll"
               Exit Sub
           End If
       Next rng
       MsgBox "Alle Zellen sind leer"
    End Sub
  4. Schließe den Editor und führe das Makro aus, während Du den gewünschten Zellbereich markierst.


Häufige Fehler und Lösungen

  1. Fehler: Die MsgBox zeigt an, dass eine Zelle voll ist, obwohl sie leer sein sollte.

    • Lösung: Stelle sicher, dass keine unsichtbaren Zeichen oder Leerzeichen in der Zelle vorhanden sind. Nutze die Funktion =LÄNGE(A1) um die Länge des Inhalts zu überprüfen.
  2. Fehler: Die VBA-Funktion läuft nicht.

    • Lösung: Stelle sicher, dass Du den richtigen Zellbereich markiert hast, bevor Du das Makro ausführst.

Alternative Methoden

  • Verwendung von Datenvalidierung: Du kannst auch Datenvalidierungsregeln erstellen, um sicherzustellen, dass bestimmte Zellen nicht leer bleiben.
  • Bedingte Formatierung: Setze eine bedingte Formatierung, um leere Zellen visuell hervorzuheben.

Praktische Beispiele

  1. Überprüfung mehrerer Zellen auf Leere:

    • Verwende die Formel =WENN(ANZAHLLEEREZELLEN(A1:A10)=10; "Alle Zellen leer"; "Nicht alle Zellen leer").
  2. VBA-Beispiel für leere Zellen in einem Bereich:

    Sub leer()
       If Selection.Cells.Count = WorksheetFunction.CountBlank(Selection) Then
           MsgBox "Selektion ist leer!"
       End If
    End Sub

Tipps für Profis

  • Nutze Application.WorksheetFunction.CountBlank in VBA für effizientere Berechnungen.
  • Kombiniere Prüfungen mit der WENN-Funktion, um spezielle Aktionen auszuführen, wenn Zellen leer sind.
  • Erstelle ein benutzerdefiniertes VBA-Funktionsformat, um die Lesbarkeit und Wartbarkeit deines Codes zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich überprüfen, ob alle Zellen in einem bestimmten Bereich leer sind? Du kannst die Formel =WENN(ANZAHLLEEREZELLEN(A1:B10)=ANZAHL(A1:B10); "Alle leer"; "Nicht alle leer") verwenden.

2. Wie kann ich mit VBA überprüfen, ob eine Zelle nicht leer ist? Du kannst die folgende Struktur verwenden:

If Not IsEmpty(ActiveCell) Then
    MsgBox "Die Zelle ist nicht leer"
End If

3. Was mache ich, wenn ich nur spezifische Zellen auf Leere prüfen möchte? Nutze eine Kombination aus VBA und einer WENN-Abfrage, um gezielt bestimmte Zellen zu überprüfen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige