MsgBox wenn Zelle in Spalte leer ist

Forumthread: MsgBox wenn Zelle in Spalte leer ist
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: MsgBox wenn Zelle in Spalte leer ist

03.08.2025 10:31:45

NicoHendrik

Guten Morgen,

Ich habe eine Tabelle wo in der Spalte C2 : C22 ein Name eingetragen werden soll.

In den Spalten M2 bis NN22 kann ein man in der dazugehörenden Reihe einen Wert eingetragen.

Jetzt hätte ich es gerne das, wenn versucht wird in M2 bis NN22 ein Wert einzutragen und in der dazu gehörende Spalte C kein Name drin steht eine MsgBox “ Bitte erst Name eintragen“ kommt.

Z.B. C10 ist leer in Q10 bis W10 versucht man was einzugeben. Jetzt soll die MsgBox “ Bitte erst Name eintragen“

Gruß Nico

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MsgBox wenn Zelle in Spalte leer ist

03.08.2025 11:00:03

GerdL
AW: MsgBox wenn Zelle in Spalte leer ist

03.08.2025 11:22:32

NicoHendrik

AW: MsgBox wenn Zelle in Spalte leer ist

03.08.2025 11:00:03

GerdL

Moin Nico!

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim Bereich As Range, C As Range

    

    On Error GoTo ende

    Set Bereich = Intersect(Target, Range("M2:NN22"))

    If Not Bereich Is Nothing Then

        For Each C In Bereich.Cells

            If Not C = Empty Then

                If Cells(C.Row, 3) = Empty Then

                    Application.EnableEvents = False

                    MsgBox "Bitte erst den Namen eintragen!"

                    Application.Undo

                 End If

            End If

        Next

    End If



ende:

    Application.EnableEvents = True



End Sub