Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zelle prüfen ob leer wenn ja ausgewählt

Betrifft: Zelle prüfen ob leer wenn ja ausgewählt von: Robert
Geschrieben am: 04.11.2020 00:28:31

Hallo,
ich benötige Unterstützung in einer VBA Formel.

Ziel ist die Prüfung ob eine Zelle in der Spalte "I2:I700" leer ist wenn in der Spalte "H" in der gleichen Zeile ein "Ja" eingegeben wird. Falls die Zelle in Spalte "I" leer ist, soll eine MsgBox ausgegeben werden und dann das "Ja" aus der Zelle gelöscht werden.

Gruss Robert

Betrifft: AW: Zelle prüfen ob leer wenn ja ausgewählt
von: ralf_b
Geschrieben am: 04.11.2020 01:10:09

in das Codemodul der Tabelle(code kopieren, rechts klick auf register der tabelle, code anzeigen anklicken, einfügen )
Private Sub Worksheet_Change(ByVal Target As Range)
 
 Dim x As Range
 
 If Not Intersect(Target, Range("H2:H700")) Is Nothing Then

    If Target.Value = "Ja" Then
        If Target.Offset(, 1) = "" Then
            MsgBox Target.Offset(, 1).Address & " leer"
            Target.ClearContents
        End If
    End If
 End If

End Sub


Betrifft: AW: Zelle prüfen ob leer wenn ja ausgewählt
von: Robert
Geschrieben am: 04.11.2020 08:50:07

Hallo Ralf,

Der Code funktioniert wunderbar. Vielen Dank für die schnelle Hilfe !

Gruss

Betrifft: danke für die Rückmeldung aber...
von: ralf_b
Geschrieben am: 04.11.2020 10:31:32

das kann noch weg

Dim x As Range

Beiträge aus dem Excel-Forum zum Thema "Zelle prüfen ob leer wenn ja ausgewählt"