Hallo an alle
Ich bin bislang vergebends auf der Suche das letzte von mir eingefügte image per Knopdfdruck zu löschen. Vielleicht habe ich ja hier mehr Glück. Ich abe ein Makro geschrieben, was mir per knopfdruck einen Richtighaken oder falschhaken in die Zelle einfügt. und danach automatisch eine Zelle nach unten springt. Rückgaengigmachen ist nicht als Option vorhanden. Der Bildname der Haken ändert sich ständig. Deswegen ist Picture1 leider nicht die Loesung.
Deswegen hilft mir folgender Code nicht weiter:
Sub Delete()
'
' Delete Macro
'
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Delete
End Sub
Wenn es anstatt der Picture1 Variante eine Last Picture Variante gibt lasst es mich bitte wissen.
Vielen Dank im Vorraus.
Saludos, Raiko

|