Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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