HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Msg-Box wenn in Zelle ein bestimmter Begriff steht
Stef@n

Hallo
irgendwie stehe ich gerade völlig auf dem Schlauch
Es soll eine Messagebox angezeigt werden, wenn in der Zelle O10
ein bestimmter Begriff steht.
Krieg das u.a. Marko nicht zu laufen :(
Hat jemand einen Tip ?
Gruss Stef@n
Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("O10")) Is Nothing Then Exit Sub
If Target.Value = "TEST" Then
MsgBox "In Zelle O10 steht TEST"
End If
End Sub

AW: Msg-Box wenn in Zelle ein bestimmter Begriff steht
Christoph

Hi Stef@n,
folgender Vorschlag:
Sub Msgbox
Range("=10").select
If activecell="Test" then
msgbox"test"
Endif
End Sub

Gruß Christoph
Thx an Dich ! OT
Stef@n

hast Du TEST auch groß geschrieben ?
Matthias

Hallo
Vorschlag:
If UCase(Target.Value) = UCase("TEST") Then
Gruß Matthias
AW: hast Du TEST auch groß geschrieben ?
Christoph

Sorry,hatte einen Fehler gemacht, du mußt das "Sub" umbenennen!
Sub test()
Range("O10").Select
If ActiveCell = "Test" Then
Msgbox "test"
End If
End Sub

Thx - es funktioniert :) OT
Stef@n

AW: Msg-Box wenn in Zelle ein bestimmter Begriff steht
Armin

Hallo Stef@n,
das Makro funktioniert!
Oder schreibst Du "Test" so?
Wenn das egal sein soll dann so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("O10")) Is Nothing Then Exit Sub
If Ucase(Target.Value) = "TEST" Then
MsgBox "In Zelle O10 steht " & Target.value
End If
End Sub
Gruß Armin
perfekt ! Danke Dir ! OT
Stef@n