Forums Neueste Beiträge
 

Ereignismakro ausführen, wenn eine bestimmte Zelle verändert wird

01/10/2007 - 19:06 von Walter | Report spam
Hallo,

ich möchte, dass ein Makro ausgeführt wird, wenn ich in der Zelle D14
mittels Dropdown aus der Gültigkeitsliste einen neuen Bereich
auswàhle.

Das Ereignismakro sieht wie folgt aus:
Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
titellànge = Len(Cells(14, 4)) + 1
ActiveSheet.ChartObjects("Diagramm 66").Activate
ActiveChart.Shapes("Diagrammtitel").Select
Selection.Characters.Text = Cells(14, 4) & Chr(10) & "(heutige
Situation für den laufenden Monat)"
With Selection.Characters(Start:=1, Length:=titellànge).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=titellànge, Length:D).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Application.ScreenUpdating = True
End Sub

Wie kann ich das Makro soweit einschànken, dass es nur ausgeführt
wird, wenn ich in der Zelle D14 eine Verànderung vornehme?

Gruß
Walter
 

Lesen sie die antworten

#1 Eberhard Funke
01/10/2007 - 19:50 | Warnen spam
Am Mon, 01 Oct 2007 17:06:15 -0000 schrieb Walter:

ich möchte, dass ein Makro ausgeführt wird, wenn ich in der Zelle D14
mittels Dropdown aus der Gültigkeitsliste einen neuen Bereich
auswàhle.




Hallo Walter,

allgemein geht das so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$14" Then
MsgBox "Bingo"
End If
End Sub

Hilft Dir das weiter?

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen