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ß
Hallo,
bei Formeln gibt es ZÄHLENWENN, bei VBA Countif
(10.06.2016, 11:25)BoskoBiati schrieb: [ -> ]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?
Hallo,
wie Zählenwenn. Auch VBA hat eine Hilfe!
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ß
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.
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"), "")
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
Danke für die Hilfe :)
Und Entschuldigung für die späte Rückmeldung, hatte leider gesundheitliche Beschwerden.
Gruß