MsgBox öffnen bei Eingabe eines Textes mit bestimmtem Wert
03.05.2024 13:09:39
Katja
ich würde mir gerne mit meiner Excel Tabelle das Leben etwas einfacher machen.
Zur Sache:
In dieser Excel trage ich Aufträge ein, welche ich fertig bearbeitet habe. Nun ist es so das ich ständig darauf achten muss gewisse Spezialanforderungen bei gewissen Auftragsarten nicht zu vergessen.
Beispiel:
Enthält die Spalte D "Bezeichnung" irgendwo ein "-G" steht das für eine bestimmt Ausführung zu der ein zusätzlicher Artikel eingeplant werden muss.
Enthält die Spalte D "Bezeichnung" irgendwo ein "-360°" steht das ebenfalls für eine bestimmt Ausführung zu der auch ein zusätzlicher Artikel eingeplant werden muss.
Um an die verschiedenen Zusatzanforderungen erinnert zu werden würde ich es daher gerne hinbekommen das nach Eingabe in der Spalte eine Message Box auf geht welche mich auf die Spezialanforderung hinweist. Diese soll dann einfach mit "OK" bestätigt werden können und fertig.
Bisher habe ich nur geschafft das bei Eingabe einer Zahl in eine spezielle Zelle eine Message Box geöffnet wird. Diese öffnet sich leider auch immer wieder so lange wie die Zahl in der Zelle steht. Eigentlich soll diese Box aber nur einmal aufgehen nachdem man mit der Eingabe fertig ist.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(Range("D6").Value, "1") > 0 Then
MsgBox "Test", vbOKOnly
End If
End Sub
Schon einmal vielen Dank im Voraus für die Hilfe :)
Gruß Katja
Anzeige