Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro ausführen, wenn Zellinhalt sich ändert

Makro ausführen, wenn Zellinhalt sich ändert
06.02.2008 11:21:59
Timo
Hallo,
bisher habe ich Makros immer über bestimmte Buttons ausgeführt bzw. indem ich das Makro über die Menüleiste aktiviert habe.
Jetzt möchte ich gern auch das Makro ausführen, wenn sich der Inhalt der Zelle C6 und/oder C7 ändert. Z.B. Steht in C6 jetzt die Zahl 10. Wenn ich jetzt dort eine andere Zahl eintippe, soll das Makro aktiviert werden. Dasselbe gilt für Zelle C7.
Vielen Dank für eure Hilfe.
Timo

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen, wenn Zellinhalt sich ändert
06.02.2008 11:28:51
Rudi
Hallo,
siehe Ereignis Worksheet_Change
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Worksheet_Change-Makro
06.02.2008 11:30:24
Beate
Hallo Timo,
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("$C$6, $C$7")) Is Nothing Then Exit Sub
    'hier dein Code
    MsgBox "Makro gestartet!"
End Sub


Das Makro gehört ins Codefenster der Tabelle. Guckst Du: Wie und wo fügt man ein Makro bzw. Code ein
Gruß,
Beate

Anzeige
AW: Makro ausführen, wenn Zellinhalt sich ändert
06.02.2008 11:34:00
Harald
Hallo Timo,
z.B. so:

Private Sub worksheet_change(ByVal target As Range)
If target.Row = 6 And target.Column = 3 Then
MsgBox "Zelle C6 geändert"
ElseIf target.Row = 7 And target.Column = 3 Then
MsgBox "Zelle C7 geändert"
End If
End Sub


Gruß Harald

AW: Makro ausführen, wenn Zellinhalt sich ändert
06.02.2008 14:14:00
Timo
Vielen Dank euch allen. Hat funktioniert!

Worksheet_Change-Makro
06.02.2008 22:40:36
Beate
Hallo Timo,
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("$C$6, $C$7")) Is Nothing Then Exit Sub
    'hier dein Code
    MsgBox "Makro gestartet!"
End Sub


Das Makro gehört ins Codefenster der Tabelle. Guckst Du: Wie und wo fügt man ein Makro bzw. Code ein
Gruß,
Beate
Anzeige

67 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige