@ Peter Weber: AW Shape mit bestimmten Text lösch
31.08.2015 12:54:31
Michael
Dein Beitrag ist leider schon ins Archiv gerückt - nachdem ich mir nicht sicher bin, ob Du einen neuen Beitrag eröffnest, hier meine versprochene Antwort. So kannst Du Zeichnungsformen mit einem bestimmten Textinhalt in der zweiten Zeile löschen:
Sub BestimmtesShapeEntfernen()
Dim Zeichnung As Shape
Dim PosZeilensprung As Integer
Dim TextGesamt As String
Dim TextZweiteZeile As String
Dim TextKriterium As String
'Den Text definieren, der die zu löschenden Zeichnungsformen definiert
TextKriterium = "Test 2"
For Each Zeichnung In ActiveSheet.Shapes
'Gesamten Text der Zeichnungsform auslesen
TextGesamt = Zeichnung.TextFrame2.TextRange.Characters.text
'Position des Zeilensprungs im gesamten Text herausfinden (Zeichen 10)
PosZeilensprung = WorksheetFunction.Search(Chr(10), TextGesamt, 1)
'Text nach dem Zeilensprung auslesen
TextZweiteZeile = Mid(TextGesamt, PosZeilensprung + 1, Len(TextGesamt))
'Vergleich ob das Textkriterium (s.o.) im Text nach dem Zeilensprung vorkommt
'bei Vorkommen wird diese Zeichnungsform gelöscht
If InStr(1, TextZweiteZeile, TextKriterium, vbTextCompare) Then
Zeichnung.Delete
End If
Next
End Sub
Michael