Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle mit dem Wert 0 soll ungleich EMPTY sein

Zelle mit dem Wert 0 soll ungleich EMPTY sein
Ulf
Hallo,
ist eine Unterscheidung in VBA zwischen dem Wert 0 und Emtpy möglich?
Zur Erklärung:
habe folgenden Makro bei verlassen des Blatts:
Dim Mldg, Titel, Stil, Antwort
For i = 7 To 12
If Cells(i, 3) = Empty Then
Mldg = "Missing entry in cell (C" & i & ") !"
Stil = vbOKOnly + vbCritical
Titel = "Empty Cells Check"
Antwort = MsgBox(Mldg, Stil, Titel)
Worksheets("II. Calculation of OD").Activate
Range("C" & i).Select
Exit Sub
End If
Next i
Spalte C darf von Zeile 7 bis 12 nicht leer sein.
Daher der Makro.
Aber, wenn ich den Wert 0 eingebe, kommt ebenfalls die MsgBox!
Manch Messwerte können aber den Wert 0 haben.
Wie kann ich ein leeres Feld (EMPTY) von dem Wert NULL unterscheiden lassen?
Danke
Ulf

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

Betreff
Benutzer
Anzeige
Alternative ...
Volker
Hallo Ulf,
schon mal so probiert:
If Cells(i, 3) = Empty and Cells(i, 3) 0 Then
Gruss
Volker Croll
www.crolltools.decolor>
Mein Vorschlag ist natuerlich Bloedsinn ...
30.03.2004 17:41:09
Volker
... habe entgegen meiner sonstigen Art nicht getestet; sonst haette ich meinen Fehler bemerkt.
Sorry & Gruss
Volker Croll
www.crolltools.decolor>
If IsEmpty(Cells(i, 3)) Then....
Boris

Sub test()
Dim Mldg, Titel, Stil, Antwort, i
For i = 7 To 12
If IsEmpty(Cells(i, 3)) Then
Mldg = "Missing entry in cell (C" & i & ") !"
Stil = vbOKOnly + vbCritical
Titel = "Empty Cells Check"
Antwort = MsgBox(Mldg, Stil, Titel)
Worksheets("II. Calculation of OD").Activate
Range("C" & i).Select
Exit Sub
End If
Next i
End Sub

Grüße Boris
Anzeige
AW: If IsEmpty(Cells(i, 3)) Then....
31.03.2004 09:35:54
Ulf
ha!
wer hätte gedacht, dass = Empty nicht gleich Is Empty ist
DANKE
AW: Zelle mit dem Wert 0 soll ungleich EMPTY sein
Barny
Hi
Versuch mal dies:
If Cells(i, 3) = "" Then

87 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige