Forums Neueste Beiträge
 

Ereignismakro (...change...) startet nicht bei Ereignis

09/10/2007 - 14:47 von Walter | Report spam
Hallo,

ich habe folgendes Ereignismakro als Code hinter dem entsprechenden
Blatt gelegt:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$c$17" Then
'If Target.Address = ActiveSheet.Cells(17, 3)
Then 'inaktiv
'If Target.Address <> "$c$17"
Then 'inaktiv
Application.ScreenUpdating = False
titellànge = Len(Cells(17, 3)) + 1
ActiveSheet.ChartObjects("Diagramm 66").Activate
ActiveChart.Shapes("Diagrammtitel").Select
Selection.Characters.Text = Cells(17, 3) & 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
info = MsgBox("Die Zelle wurde veràndert", vbOKOnly, "info")
End If

Application.ScreenUpdating = True

End Sub

Wenn ich die Zelle c17 àndere, dann startet dieses Ereignismakro
trotzdem nicht. Was habe ich falshc gemacht?
Ich habe es auch mit den Varianten (am Ende mit dem Text 'inaktiv)
versucht.

Gruß
Walter Heying
 

Lesen sie die antworten

#1 Michael Mueller
09/10/2007 - 14:50 | Warnen spam
Wenn ich die Zelle c17 àndere, dann startet dieses Ereignismakro
trotzdem nicht. Was habe ich falshc gemacht?



Schreib mal folgendes is in Modul:

Sub Rueck()
Application.EnableEvents = True
End Sub

Und starte das ganze mal.
Geht es jetzt?

Michi

Ähnliche fragen