Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

Forumthread: Meldefenster wenn in 2 Zellen ein "x" eingetragen ist
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

26.02.2025 20:21:37

Triplex

Hallo zusammen

ich habe in einer Exceltabelle z.B. in der Zelle A2 und A9 die Möglichkeit, ein "x" mittels Dropdown einzutragen. Nun bin ich auf der Suche nach eine VBA, die Folgendes bewirkt:
- sobald in beiden vorgenannten Zellen ein "x" erfasst wurde, sollte automatisch ein Meldefenster erscheinen mit dem Text "Bitte neuer Bewilligungsantrag erfassen!

Hat mir jemand eine einfache Lösung?

Besten Dank!

Triplex

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

26.02.2025 20:24:58

Piet
Zusatz:Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

26.02.2025 20:27:29

Triplex
AW: Zusatz:Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

26.02.2025 21:28:02

Piet
AW: Zusatz:Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

27.02.2025 10:29:14

GerdL

AW: Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

26.02.2025 20:24:58

Piet

Hallo

statt VBA geht das doch viel einfacher mit einer WENN Formel + Und Verknüpfung.

mfg Piet

Zusatz:Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

26.02.2025 20:27:29

Triplex

Sorry, habe in meiner Anfrage ein Fehler gemacht... es handelt sich natürlich z.B. um die Zellen B1 und H1

Gruss
Triplex

AW: Zusatz:Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

26.02.2025 21:28:02

Piet

Hallo

Mit dieser Formel kannst du in jeder beliebigen Zelle eine Meldung anzeigen lassen. Beliebige Schriftgrösse und Farbe.
=WENN(UND(B1="X";H1="X");"Meldung";"") -- Oder eine VBA Lösung, siehe unten.

mfg Piet

Private Sub Worksheet_Change(ByVal Target As Range)

If InStr(Target.Address, ":") Then Exit Sub



If Not Intersect(Range("B1,H1"), Target) Is Nothing Then

   If [b1] = "X" And [h1] = "X" Then MsgBox "Meldung"

End If

End Sub

AW: Zusatz:Meldefenster wenn in 2 Zellen ein "x" eingetragen ist

27.02.2025 10:29:14

GerdL

Moin

Private Sub Worksheet_Change(ByVal Target As Range)



    Const cstrMeldung As String = "Bitte neuer Bewilligungsantrag erfassen!"

    

    If Not Intersect(Range("B1,H1"), Target) Is Nothing Then

        If UCase$(Range("B1") & Range("H1")) = "XX" Then

            MsgBox cstrMeldung

        End If

    End If



End Sub

Gruß Gerd

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!