HERBERS Excel-Forum - das Archiv

Thema: Bestimmte Aktion wenn Eingabe in Zelle/Range | Herbers Excel-Forum

Bestimmte Aktion wenn Eingabe in Zelle/Range
Stephan

Habe noch ein kleines Problem:
Ich möchte bestimmte Aktionen ausführen wenn ich in bestimmte Range oder Zellen im Sheet eine Eingabe gemacht habe. Wird keine Eingabe gemacht soll nichts geschehen.
z.B.
Eingabe in Range B5: B10 dann
Msgbox Test1
Eingabe in Zelle C3 dann
Msgbox Test2
Eingabe in Range T3:U5 dann
Msgbox Test3
dies soll auch erweiterbar sein.
Gruß
Stephan

Worksheet_Change ...
Matthias

Hallo
Code in die entsprechende Tabelle
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B10")) Is Nothing And Target.Count = 1 Then MsgBox "Test1"
If Not Intersect(Target, Range("C3")) Is Nothing And Target.Count = 1 Then MsgBox "Test2"
If Not Intersect(Target, Range("T3:U5")) Is Nothing And Target.Count = 1 Then MsgBox "Test3"
End Sub
Gruß Matthias
AW: Bestimmte Aktion wenn Eingabe in Zelle/Range
Stephan

Danke alles bestens!