@ Peter Weber: AW Shape mit bestimmten Text lösch

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Frame
Bild

Betrifft: @ Peter Weber: AW Shape mit bestimmten Text lösch
von: Michael (migre)
Geschrieben am: 31.08.2015 12:54:31

Hallo Peter!
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
LG
Michael

Bild

Betrifft: AW: = Nachgereichte Antwort, Kein Beitrag, owT
von: Michael (migre)
Geschrieben am: 31.08.2015 12:55:12


 Bild

Beiträge aus den Excel-Beispielen zum Thema "@ Peter Weber: AW Shape mit bestimmten Text lösch"