habe eine Mappe mit ganz vielen Pfeilen in verschiedenen Zellen,
die möchte ich alle aufeinmal mit einem Makro löschen lassen.
Hat jemand eine Makro Lösung?
Gruß Amina
Sub Makro1()
ActiveSheet.Shapes("Line 3").Select
Selection.Delete
ActiveSheet.Shapes("Line 4").Select
Selection.Delete
ActiveSheet.Shapes("Line 5").Select
Selection.Delete
ActiveSheet.Shapes("Line 6").Select
Selection.Delete
End Sub
Sub Kill_Linie()
Dim ArrayShapeName() As String, obj As Object
Dim n As Integer
With Sheets("Tabelle1") 'Tabelle anpassen
If .DrawingObjects.Count > 0 Then
Redim Preserve ArrayShapeName(.DrawingObjects.Count)
For Each obj In .DrawingObjects
If InStr(obj.Name, "Line") > 0 Then
ArrayShapeName(n) = obj.Name
n = n + 1
End If
Next obj
If n > 0 Then
Redim Preserve ArrayShapeName(n - 1)
.Shapes.Range(Application.Transpose(ArrayShapeName)).Delete
End If
End If
End With
End Sub
Gruß TinoSub LinienLöschen()
Dim i As Integer
For i = ActiveSheet.Shapes.Count To 1 Step -1
If InStr(1, ActiveSheet.Shapes(i).Name, "Line") Then ActiveSheet.Shapes(i).Delete
Next i
End Sub
Gruß,