VBA Pop-Up bei bestimmten wert

[Chelipe]

Hallo zusammen,

ich habe einen Wunsch in meiner Excel-Tabelle.

Beim Eingeben eines bestimmten Werts (9006 in meinem Fall) soll ein PopUp erscheinen "Warnung!". Für nur eine Zelle (B8) hatte ich es bereits geschafft.. 
Es soll allerdings bei der Eingabe verschiedener Zellen (B8 - B60) erscheinen. 

Könnt Ihr mir da bitte helfen?

Danke
Chelipe

[Steffl]

Hallo,

das geht mit der Datengültigkeit: Bereich markieren Datengüligkeit

Arbeitsblatt mit dem Namen 'Tabelle1'
	B
7
8
9	1
10

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
B8	Ganzzahl	kleiner	1000
B9	Ganzzahl	kleiner	1000
B10	Ganzzahl	kleiner	1000

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[Ego]

Hallo Chelipe, 

folgendes Programm in das Modul  des Arbeitsblattes eintragen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8:B60")) Is Nothing Then
    If Target.Value = 9006 Then
        MsgBox "Warnung!"
    End If
End If
End Sub

[Chelipe]

Hallo Chelipe, 

folgendes Programm in das Modul  des Arbeitsblattes eintragen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8:B60")) Is Nothing Then
    If Target.Value = 9006 Then
        MsgBox "Warnung!"
    End If
End If
End Sub

Vielen Dank, funktioniert einwandfrei!