Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

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


Betrifft: Bestimmte Aktion wenn Eingabe in Zelle/Range von: Stephan
Geschrieben am: 04.01.2010 13:54:12

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

  

Betrifft: Worksheet_Change ... von: Matthias L
Geschrieben am: 04.01.2010 14:00:39

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


  

Betrifft: AW: Bestimmte Aktion wenn Eingabe in Zelle/Range von: Stephan
Geschrieben am: 04.01.2010 15:23:18

Danke alles bestens!


Beiträge aus den Excel-Beispielen zum Thema "Bestimmte Aktion wenn Eingabe in Zelle/Range"