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

Forumthread: Mehrere Zellen auf Inhalt prüfen

Mehrere Zellen auf Inhalt prüfen
08.10.2008 13:30:29
Tom
Hallo
wie lautet denn der richtige Code?
If Range("H17", "I17", "J17", "K17", "L17", "N17").Value = "" Then
geht nicht
ich möchte halt später noch andere Zeilen mit den selben Spalten testen ob leer, diese sind aber nicht vortlaufend....daher wollte ich die jeweils in eine eigene if packen.
Allerdings sollte wohl das oben erst mal funktionieren :-)
Danke
Der Tom
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Zellen auf Inhalt prüfen
08.10.2008 15:13:57
Tom
In dem Beispiel wird ja Zelle für Zelle abgefragt....ich möchte wissen ob alle genannten Zellen leer sind.
Also so nach dem Motto:
Wenn alle genannten Zellen leer sind dann mache....ist was drinn, dann else...
Der Tom
Anzeige
AW: Mehrere Zellen auf Inhalt prüfen
08.10.2008 15:51:38
Tino
Hallo,
teste mal, vielleicht ist dies eine Möglichkeit.
Dim Bereich As Range
Set Bereich = Range("A1:D200") 'Zellbereich 

With Application.WorksheetFunction
 
 If .CountBlank(Bereich) <> Bereich.Count Then
  MsgBox "Im Bereich steht was drin!"
 Else
  MsgBox "Im Bereich steht nix"
 End If

End With


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Mehrere Zellen auf Inhalt prüfen
08.10.2008 15:56:00
Luschi
Hallo Tom,
wenn es egal ist, welche Zelle nicht leer ist, dann geht es auch so:

Dim rg As Range
Set rg = ActiveSheet.Range("C3,C10,E7,E11")
If rg.SpecialCells(xlCellTypeBlanks).Count = rg.Count Then
'mache was
Else
'mache was anderes
EndIf

Gruß von Luschi
aus klein-Paris

Anzeige
AW: Mehrere Zellen auf Inhalt prüfen
08.10.2008 16:15:59
Tom
So geht das!
Vielen Dank!!!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Mehrere Zellen auf Inhalt prüfen in Excel


Schritt-für-Schritt-Anleitung

Um mehrere Zellen auf ihren Inhalt zu prüfen, kannst Du VBA in Excel verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)".
    • Wähle "Einfügen" und dann "Modul".
  3. Füge den VBA-Code ein:

    • Kopiere den folgenden Code und füge ihn in das Modul ein:
    Dim rg As Range
    Set rg = ActiveSheet.Range("H17:I17:J17:K17:L17:N17")
    If rg.SpecialCells(xlCellTypeBlanks).Count = rg.Count Then
       MsgBox "Alle Zellen sind leer"
    Else
       MsgBox "Es gibt Werte in den Zellen"
    End If
  4. Führe das Makro aus:

    • Schließe den VBA-Editor und gehe zurück zu Excel.
    • Drücke ALT + F8, wähle das Makro aus und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: "Objekt erforderlich"

    • Lösung: Stelle sicher, dass Du die Range korrekt definiert hast. Zum Beispiel Set rg = ActiveSheet.Range("H17:I17:J17:K17:L17:N17").
  • Fehler: "Kein solcher Zellbereich"

    • Lösung: Prüfe, ob die angegebenen Zellen tatsächlich existieren und richtig eingegeben wurden.
  • Fehler: MsgBox zeigt nicht das erwartete Ergebnis an

    • Lösung: Überprüfe, ob die Zellen tatsächlich leer sind. Nutze die Funktion IsEmpty() in Deinem Code, um Zellen zu prüfen.

Alternative Methoden

  1. Wenn-Funktion in Excel: Du kannst die WENN-Funktion verwenden, um zu prüfen, ob mehrere Zellen leer sind:

    =WENN(UND(ISTLEER(H17), ISTLEER(I17), ISTLEER(J17)), "Alle Zellen sind leer", "Es gibt Werte")
  2. Bedingte Formatierung:

    • Du kannst auch die bedingte Formatierung nutzen, um Zellen hervorzuheben, die leer sind.

Praktische Beispiele

  • Prüfen, ob Zellen auf gleichen Inhalt prüfen:

    Dim rg As Range
    Set rg = ActiveSheet.Range("A1:A10")
    If Application.CountIf(rg, rg.Cells(1, 1).Value) = rg.Count Then
       MsgBox "Alle Zellen haben den gleichen Inhalt"
    End If
  • Prüfen, ob mindestens eine Zelle einen Wert enthält:

    If Application.CountA(rg) > 0 Then
       MsgBox "Mindestens eine Zelle hat einen Wert"
    End If

Tipps für Profis

  • Nutze die CountBlank-Funktion, um schnell zu prüfen, wie viele Zellen leer sind.
  • Wenn Du oft mehrere Zellen überprüfen musst, erstelle ein Makro, das Du einfach ausführen kannst.
  • Experimentiere mit der WENN-Funktion, um komplexere Bedingungen zu prüfen, wie z. B. "Wenn eine von mehreren Zellen einen Wert enthält".

FAQ: Häufige Fragen

1. Wie kann ich prüfen, ob mehrere Zellen in Excel leer sind? Verwende die WENN-Funktion oder VBA mit CountBlank, um zu überprüfen, ob alle Zellen leer sind.

2. Was kann ich tun, wenn ich in einer Formel mehrere Zellen prüfen möchte? Nutze die UND-Funktion in Kombination mit ISTLEER, um zu prüfen, ob alle angegebenen Zellen leer sind, oder benutze VBA für mehr Flexibilität.

3. Kann ich auch prüfen, ob mehrere Zellen den gleichen Inhalt haben? Ja, Du kannst die CountIf-Funktion in Excel oder VBA verwenden, um zu prüfen, ob der Inhalt in mehreren Zellen identisch ist.

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