Makro bei Änderung des Zellinhalts
06.01.2005 16:06:08
Alex
Das folgende Makro läuft soweit nach meinen Vorstellungen ganz gut, bis auf eine Kleinigkeit, auf die ich nicht komme. Wenn sich nun der Wert in Zelle A71 ändert, dann ändert sich das sichtbare Bild nicht sofort. Ich muss immer erst nochmal ENTER drücken oder irgend eine Zelle auswählen, bevor dies geschieht. Ich hätte es aber gern so, dass sofort nach ändern des Zellinhalts in A71 das entsprechende Bild sichtbar wird. Wie geht das?
Mit aplication.screenupdate... hab ich probiert, bringt nix.
Danke im vorraus.
Gruß
Sub Spiegelwahl()
' Streuspiegel
If ActiveSheet.Cells(71, 1) = 1 Then
ActiveSheet.Shapes.Range("Picture 63").Visible = False
ActiveSheet.Shapes.Range("Picture 74").Visible = True
Else
'Sammelspiegel
ActiveSheet.Shapes.Range("Picture 74").Visible = False
ActiveSheet.Shapes.Range("Picture 63").Visible = True
End If
ActiveSheet.Shapes("Line 45").Rotation = [b90]
ActiveSheet.Shapes("Line 48").Rotation = [b91]
End Sub