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
Sub 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