Suchen/Ersetzen in Kommentaren klappt nicht immer
Axel
ich habe eine Funktion zum Suchen und Ersetzen in Kommentaren welche auf markierte Zellen angewendet wird.
Es wird mit Platzhalter gesucht und beim finden des Begriffs die ganze entsprechende Zeile gelöscht.
Das ganze klappt komischerweise nur bei Kommentaren die sehr wenig Zeichen enthalten. Bei mehr als ca. 250 Zeichen im Kommentar klappt es nicht mehr. Eine Fehlermeldung kommt nicht zurück, es wird schlicht nichts mehr ersetzt.
Public Sub test()
Dim ZElle As Range
Dim Arr
Dim I
Dim stext As String
For Each ZElle In Cells.SpecialCells(xlCellTypeComments)
stext = ZElle.Comment.Text
Arr = Split(stext, vbLf)
For I = LBound(Arr) To UBound(Arr)
If Arr(I) Like "Suchwort*" Then stext = Replace(stext, Arr(I) & vbLf, "")
Next
ZElle.NoteText stext
Next
End Sub
ich hoffe ihr könnt mir weiterhelfen
mfG Axel
Anzeige