IsEmty(OldCell) mit Fehlermeldung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hio...
Erstens: Wo ist OldCell deklariert?
Zweitens: Die Funktion IsEmpty prüft nicht den Zellinhalt einer Zelle, sondern eine Varable, ob diese schon initialisiert ist.


IsEmpty-Funktion
Gibt einen Wert vom Typ Boolean zurück, der angibt, ob eine Variable initialisiert wurde.
Syntax
IsEmpty(Ausdruck)
Das erforderliche Argument Ausdruck ist ein Wert vom Typ Variant und enthält einen numerischen  _
Ausdruck oder einen Zeichenfolgenausdruck. Da mit der IsEmpty-Funktion jedoch geprüft wird, ob einzelne Variablen initialisiert worden sind, enthält das Argument Ausdruck in der Regel nur einen einzelnen Variablennamen.
Bemerkungen
IsEmpty gibt den Wert True zurück, wenn die Variable nicht initialisiert ist oder explizit auf  _
Empty gesetzt wurde, andernfalls wird False zurückgegeben. Die IsEmpty-Funktion gibt immer den Wert False zurück, wenn Ausdruck mehrere Variablen enthält. IsEmpty gibt nur für Variant-Werte sinnvolle Informationen zurück.

Rückmeldung nicht vergessen...

c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Hio...
So sollte es gehen:

Code aus Microsoft Excel Objekt Tabelle1:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim l As Long

    Dim s As String

    s = ""

    If oldCell Is Nothing Then Set oldCell = Range("A1")

    If Not Intersect(oldCell, Columns(5)) Is Nothing Then

        l = oldCell.Row

        If Range("A" & l).Value = "" Then s = s & Range("A" & l).Address(False, False) & ", "

        If Range("B" & l).Value = "" Then s = s & Range("B" & l).Address(False, False) & ", "

        If Range("C" & l).Value = "" Then s = s & Range("C" & l).Address(False, False) & ", "

        If Range("D" & l).Value = "" Then s = s & Range("D" & l).Address(False, False) & ", "

        If Range("E" & l).Value = "" Then s = s & Range("E" & l).Address(False, False) & ", "

        If s <> "" Then

            MsgBox "Folgende Zellen sind nicht gefüllt:" & vbCrLf & Left(s, Len(s) - 2), _

                    vbOKOnly, "Leere Zellen"

        End If

    End If

    Set oldCell = Target

End Sub

Code aus Modul Modul1:

Option Explicit

Public oldCell As Range

Rückmeldung nicht vergessen...

c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Beliebteste Forumthreads (12 Monate)

IsEmty(OldCell) mit Fehlermeldung

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread