Hallo,
da mein Beitrag schon im Archiv gelandet ist hier ein kleines Feedback zum letzten Beitrag von Alexandra aka Cysu11
Hi Nico,
ersetze den Codeteil mit:
Dim shp As Shape
For Each ws In Worksheets(Array("Avis Dachser GRP", "Avis Dachser direct", "Avis Europa", "Avis _
No Limit", "Avis DPD L"))
ws.Cells.Clear
ws.Shapes.SelectAll
Selection.Delete
Next ws
LG
Alexandra
Das hat wunderbar funktioniert. Der ganze Code macht nun genau das so wie ich mir das vorgestellt habe. Vielen lieben Dank für deine HIlfe!!!
Gruß
Nico