msg wenn JA

Forumthread: msg wenn JA

msg wenn JA

11.11.2019 15:06:29

Lupo

Hallo - wahrscheinlich ganz einfach - sitze auf der Leitung
Ich habe ein Excel File.
Wenn in der Spalte H in einer Zelle "Ja" geschrieben wird, dann soll eine msg Mitteilung erscheinen mit dem Text "Überprüfen".
Das wäre alles
Danke

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: msg wenn JA

11.11.2019 15:35:56

Hajo_Zi
AW: msg wenn JA

11.11.2019 15:39:39

Lupo
AW: msg wenn JA

11.11.2019 15:57:46

volti
AW: Nur Info ...

11.11.2019 16:39:03

Dieter(Drummer)
AW: Nur Info ...

11.11.2019 16:58:27

Daniel
AW: Nur Info ...

11.11.2019 17:18:03

Dieter(Drummer)
AW: Nur Info ...

11.11.2019 17:06:11

volti
AW: msg wenn JA

11.11.2019 16:51:14

Nepumuk
AW: msg wenn JA

12.11.2019 08:44:20

Lupo
AW: msg wenn JA

11.11.2019 16:04:29

Hajo_Zi

AW: msg wenn JA

11.11.2019 15:35:56

Hajo_Zi


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
MsgBox "Spalte H"
End If
End Sub

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

AW: msg wenn JA

11.11.2019 15:39:39

Lupo

Nicht ganz.
Jetzt bekomme ich di Meldung auch bei "Nein".
Die Meldung darf nur bei "Ja" angezeigt werden
Danke

AW: msg wenn JA

11.11.2019 15:57:46

volti

Hallo Lupo,
dann ergänze den Text von HaJo entsprechend:

Option Explicit

Option COMPARE TEXT

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 8 Then

        If Target.Value Like "Ja" Then MsgBox "Überprüfen"

    End If

End Sub

viele Grüße
Karl-Heinz

AW: Nur Info ...

11.11.2019 16:39:03

Dieter(Drummer)

Hallo Karl-Heinz,
Thema interessierte mich auch und konnte dabei feststellen, dass es bei deinem Code egal ist, ob "Ja" oder "ja" in Zellen, Spalte "H", geschrieben wird. Gefällt mir ...
Gruß, Dieter (Drummer)

AW: Nur Info ...

11.11.2019 16:58:27

Daniel

Hi
du kannst in VBA über das Option Compare angeben wie Textvergleiche im Regelfall (dh ohne explizite Angabe innerhalb der Funktion) durchgeführt werden sollen, dh ob mit oder ohne der Berücksichtigung der Groß-/Kleinschreibung.
gibt man kein Option Compare an, wird die Groß/Kleinschreibung unterschieden.
Gruß Daniel

AW: Nur Info ...

11.11.2019 17:18:03

Dieter(Drummer)

Danke Daniel für Info.
Hatte mich inzwischen auch über "Compare ..." informiert. Es ist immer wieder hilfreich, Deine Erklärungen/Erläuterungen über diverse Begriffe zu lesen. Danke ...
Gruß, Dieter(Drummer)

AW: Nur Info ...

11.11.2019 17:06:11

volti

Hallo Dieter,
danke für deine Rückmeldung. Das war von mir so gewollt, auch wenn Lupo ja nur "Ja" schrieb, sind bei Text ja meistens beide Schreibweisen (z.B. durch Tippfehler) als möglich gewollt.
viele Grüße
KH

AW: msg wenn JA

11.11.2019 16:51:14

Nepumuk

Hallo Lupo,
damit du in keinen Fehler läufst wenn du z.B. zwei Zellen in Spalte H löschst, so:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objRange As Range, objCell As Range
    Set objRange = Intersect(Target, Columns(8))
    If Not objRange Is Nothing Then
        For Each objCell In objRange
            If LCase$(objCell.Value) = "ja" Then
                Call MsgBox("Überprüfen", vbExclamation, "Hinweis")
                Exit For
            End If
        Next
        Set objRange = Nothing
    End If
End Sub

Gruß
Nepumuk

AW: msg wenn JA

12.11.2019 08:44:20

Lupo

Funktioniert - Danke vielmals

AW: msg wenn JA

11.11.2019 16:04:29

Hajo_Zi

ich sehe gerade das Ja hatte ich überlesen
If Target.Column = 8 and Target ="Ja" Then
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Forumthread: msg wenn JA

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread