Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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
Anzeige
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)
Anzeige
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
Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige