If ActiveSheet.Cells(71, 1) = 1 Then
ActiveSheet.Shapes("Picture 74").Select
Selection.ShapeRange.IncrementTop 1#
Else
ActiveSheet.Shapes("Picture 63").Select
Selection.ShapeRange.IncrementTop 1#
End If
der auch gut funktioniert. Jetzt möchte ich aber statt der "1#" dort eine Zelle D92 verknüpfen. Wie sieht die schreibweise da aus? Bis jetzt klappt es noch nicht.
If ActiveSheet.Cells(71, 1) = 1 Then
ActiveSheet.Shapes("Picture 74").Select
Selection.ShapeRange.IncrementTop [D92]
Else
ActiveSheet.Shapes("Picture 63").Select
Selection.ShapeRange.IncrementTop [D92]
End If
Vielen Dank im vorraus.
Gruß Alex