Mithilfe von VBA zu prüfen, ob unter Zelle leer ist

Wie kann ich mit VBA in Excel prüfen, ob ein unter Zelle leer ist oder nicht?
Ich möchte die Summe aller Werte in einem bestimmten Bereich, aber nur, wenn die unten Zelle ist nicht leer.

Ist das irgendwie möglich mit VBA oder andere Weise?

Beispiel:

4 2 3 2 1
2   3 1

Summe wäre: 4 + 3 + 2 = 9.

InformationsquelleAutor cherrun | 2012-04-21

3

Ich würde empfehlen, eine Formel für diese

FORMEL
```
=SUMPRODUCT((A1:E1)*(A2:E2<>""))
```
SNAPSHOT

Wenn Sie immer noch wollen, VBA dann

VBA
```
Option Explicit

Sub Sample()
    Dim rng As Range
    Dim Cl As Range
    Dim tot As Long

    Set rng = Range("A1:F1")

    For Each Cl In rng
        If Len(Trim(Cl.Offset(1))) <> 0 Then tot = tot + Cl.Value
    Next

    Debug.Print tot
End Sub
```
In der Tat können Sie mehrere Versionen in VBA. Sie können die Auswertung der obigen Formel als gut. Zum Beispiel
```
Option Explicit

Sub Sample()
    Debug.Print Evaluate("=SUMPRODUCT((A1:E1)*(A2:E2<>""""))")
End Sub
```
- Rout, sehr schöner Ansatz.
- Schön! Würden Sie mir, näher auf diesen Teil: '<>""'?
- steht für Not Equal To. Also ich bin nur Zellen berücksichtigt, die nicht leer sind) in den Bereich A2:E2.
- Rout ich bin damit einverstanden, clevere Nutzung von SumProduct aber ich denke, dass hast du falsch verstanden cherrun Frage über "<>". A2:E2<>"" gibt True zurück, oder False für jede Spalte. Sie sind dann mit True oder False als integer. Excel behandelt True als 1 und False als 0. Also die SumProduct ist 4*True + 2*False + 3*True + 2*True + 1*False = 4*1 + 2*0 + 3*1 + 2*1 + 1*0 = 9. Clever aber, wenn Sie wissen, dass boolsche Variablen sind implizit in Ganzzahlen konvertiert, unverständlich.
- Ah! In diesem Fall habe ich falsch verstanden, die Frage 🙂
- Rout. Ich denke, deine Antworten sind sehr schön präsentiert, Sie zeigen eine Tiefe der Erkenntnis, die ich nie anstreben und wo finden Sie die Zeit, Sie zu beantworten so viele Fragen, aber manchmal habe ich den Verdacht, dass Sie vergessen, wie weit vor dem rest von uns, die Sie sind. Aber selbst wenn, bin ich richtig über cherrun die wahre Frage ist, halten Sie die gute Arbeit; Ihre Antworten sind ein Vergnügen zu Lesen.
- Dallimore und Sidd Danke Euch beiden für Eure Antworten! In der Tat, ich wusste nicht, dass <> gemeint ist nicht gleich, und daher nicht wissen, dass es umgewandelt wurde, um ganze zahlen als gut. Vielen Dank Euch beiden!
- +1 eine Weitere gute Antwort. Stimme mit @TonyDallimore. Ihre Antworten sind ein Vergnügen zu Lesen. Halten Sie die gute Arbeit. 🙂
InformationsquelleAutor Siddharth Rout

Versuchen Sie diese einfachen code -

If IsEmpty(ActiveCell.Offset(1, 0)) Then
'your code here
End If

InformationsquelleAutor Nick

Habe ich einige Probleme hatte mit nur 'IsEmpty', wenn die Daten exportiert werden, aus anderen Datenbanken. Dies ist die Funktion, die ich entwickelt habe:

Function IsVacant(TheVar As Variant) As Boolean
  'LeandraG 2010

  IsVacant = False

  If IsEmpty(TheVar) Then IsVacant = True
  If Trim(TheVar) = "" Then IsVacant = True
  If Trim(TheVar) = "'" Then IsVacant = True


End Function

InformationsquelleAutor

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.