Wenn dann Bild in den Vordergrund
07.12.2004 12:29:37
Alex
Ich habe auf meinem Blatt 2 Bilder übereinander gepackt, und möchte nun, je nachdem ob in Zelle A71 eine 1 oder 2 steht das erste bzw. das zweite Bild in den Vordergrund stellen.
Der Compiler meldet zwar keinen Fehler, aber es funktioniert trotzdem nicht. Wo liegt der Fehler? Und wie kann ich den Zellinhalt abfragen, ohne erst mit "Range" die Zelle zu markieren? Dadurch flackert der Bildschirm so. ;-)
Vielen Dank
Sub Spiegelart()
' Spiegelart Makro
' Makro am 07.12.2004 aufgezeichnet
' Streuspiegel
Range("A71").Activate
If ActiveCell.Value = 1 Then
ActiveSheet.Shapes("Picture 65").Select
Selection.ShapeRange.ZOrder msoSendBackward
Range("C21").Select
End If
'Sammelspiegel
If ActiveCell.Value = 1 Then
ActiveSheet.Shapes("Picture 63").Select
Selection.ShapeRange.ZOrder msoSendBackward
Range("C21").Select
End If
Range("A1").Select
End Sub