Mehrere zellen überprüfen

[NiMü7]

Guten Tag zusammen :)

Mein Anliegen ist diesmal, dass ich gerne wissen würde wie ich mehrere Zellen überprüfen kann ob diese ein Inhalt aufweisen.
Es ist auch gewollt wenn ein Feld kein Inhalt hat, wenn die anderen Inhalt haben.

Für die Überprüfung ob ein einzelnes Feld Inhalt hat kenn ich den Code 

Code:

If (Range ("A2").Value = "") then
End if

Aber wenn ich mehrere überprüfen möchte kriege ich das nicht mehr hin :/

Code:

If (Range ("A2:D2").Value = "") then
End if

Hat jemand vielleicht eine Lösung für mein Problem?

Gruß

[BoskoBiati]

Hallo,

bei Formeln gibt es ZÄHLENWENN, bei VBA Countif

[NiMü7]

Hallo,

bei Formeln gibt es ZÄHLENWENN, bei VBA Countif

Danke für die rasche Antwort. :)
Aber könntest du mir verraten wie ich Countif anwende?

[BoskoBiati]

Hallo,

wie Zählenwenn. Auch VBA hat eine Hilfe!

[NiMü7]

Ich glaube ich habe mein Problem nicht richtig beschrieben.
Das was ich brauche ist eine Funktion wie "IsEmpty" nur was statt eine Zelle mehrere überprüft.
Ich will nur überprüfen ob in Bsp. "A2:G2" irgendetwas steht und wenn ja dann soll er erst was tun.

Das Countif hilft mir leider nicht mit mein Problem oder ich wende das komplett falsch an, dann bräuchte ich bitte ein anwendungsbeispiel. Und wenn nicht, dann dennoch danke :)

Gruß

[BoskoBiati]

Hallo,

https://msdn.microsoft.com/de-de/library...39272.aspx


Ist das so schwer?

[NiMü7]

Ich muss leider sagen ja  :22:

Bei mir kommt die ganze Zeit irgendein Fehler den ich nicht so ganz nach voll ziehen kann bzw. nicht weiß wie dieser zu Stande kommt :c

Meine aktuelle Version, welche nicht funktioniert 

Code:

WorksheetFunction.Countif  (Range ("A2:G2"),"")

Fehler ist:
"Fehler beim Kompilieren:

Erwartet: ="

Und mit diesem Fehler kann ich leider nichts anfangen.

P.s. Varianten mit "." Vor dem Range und nach und zzgl mit Value hinter den Anführungszeichen haben auch nicht funktioniert.

[schauan]

Hallöchen,

Excel bzw. VBA erwartet von Dir, dass Du mit dem Ergebnis etwas tust, z.B. dass Du es ausgibst:

MsgBox WorksheetFunction.CountIf(Range("A1:A10"), "")

oder einer Variablen zuweist - daher das "=" in der Fehlermeldung

LeereZellen = WorksheetFunction.CountIf(Range("A1:A10"), "")

[Steffl]

Auch Hallo,

oder wenn Du jede Zelle in dem Bereich eigens prüfen willst

Code:

Sub prcX()
  Dim rngZelle As Range
 
  For Each rngZelle In Range("A2:D2")
     If rngZelle.Value = "" Then
        '...
     End If
  Next rngZelle
End Sub

[NiMü7]

Danke für die Hilfe :)

Und Entschuldigung für die späte Rückmeldung, hatte leider gesundheitliche Beschwerden.

Gruß