Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox bei Textkürzel

Forumthread: MsgBox bei Textkürzel

MsgBox bei Textkürzel
10.03.2009 22:53:12
hermann
Hallo eine Frage,
Wenn ich in Zelle E3 ein Textkürzel (z.B. PLS) schreibe,soll eine MsgBox aufgehen mit dem Hinweis
"Achtung Eingabe prüfen!!"
Wie mache ich so etwas.
Kann mir jemand helfen
Gruß
Hermann
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox bei Textkürzel
10.03.2009 23:01:04
Uduuh
Hallo,
wo sind die zu prüfenden Kürzel definiert?
Gruß aus’m Pott
Udo

AW: MsgBox bei Textkürzel
10.03.2009 23:08:23
hermann
Hallo Udo,
eigendlich soll nur bei diesem einen Kürzel dieser Text erscheinen.
Ansonsten werden in diese Zelle nur Zahlen größer wie 1 eingetragen,da soll keine
Meldung kommen.
d.h. gebe ich 1 oder eine andere Zahl ein,passiert nichts,gebe ich PLS ein erscheint
die MsgBox mit einem Hinweis.
Gruß
Hermann
Anzeige
AW: MsgBox bei Textkürzel
10.03.2009 23:23:30
Uduuh
Hallo,
Daten-Gültigkeit, Zulassen: ganze Zahl, größer oder gleich, 1
Fehlermeldung: Typ: Information, Fehlermeldung: Daten überprüfen
Gruß aus’m Pott
Udo

AW: MsgBox bei Textkürzel
10.03.2009 23:05:45
Renee
Hi Hermann,
z.B. so (Code in das Tabelleblatt):

Private Sub Worksheet_Change(ByVal Target As Range)
Const cÜberprüfen = "PLS,XYZ"
If Target.Address(0, 0) = "E3" Then
If InStr(cÜberprüfen, Target.Value) > 0 Then _
MsgBox "Achtung Eingabe prüfen!!", _
vbOKOnly + vbExclamation
End If
End Sub


GreetZ Renée

Anzeige
...dann lass ,XYZ weg! ;-)) (owT)
10.03.2009 23:11:56
Renee

AW: MsgBox bei Textkürzel
10.03.2009 23:13:47
hermann
Hallo Renée,
vielen Dank,hat wunderbar geklappt.
Gruß
Hermann
AW: Eine schönere MsgBox :-)
10.03.2009 23:17:59
Gerd 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0, xlA1) = "E3" Then
If Target.Value = "Pils" Then MsgBox Target.Value & " kommt gleich !", vbOKOnly + vbExclamation, _
_
"Prooost!"
End If
End Sub


Grüße Gerd

Anzeige
AW: Eine schönere MsgBox :-)
11.03.2009 09:58:29
Renee
Bitteschön:
AW: Aaaaaahhhhh, Klasse o.T :-)
11.03.2009 20:55:19
Gerd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige