Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen & Ersetzen in Kommentaren

Forumthread: Suchen & Ersetzen in Kommentaren

Suchen & Ersetzen in Kommentaren
Axel
Hallo alle miteinander,
gibt es eine Möglichkeit in in den Kommentaren mehrerer markierter Zellen einen Text zu suchen und ersetzen?
Suchen und ersetzen funktioniert auf regulärem Weg in Excel 2003 nur beim Inhalt der Zellen, nicht aber bei deren Kommentaren.
Ich bräuchte eine Funktion wo ich auch mit Platzhaltern suchen und einen Zeilenumbruch löschen kann!
Beispiel:
Beim Fund von "Bewertung: *[Zeilenumbruch]" soll dies komplett entfernt werden: 
Text1
Bewertung: 7.12
Text2
soll hinterher so aussehen: 
Text1
Text2
2. Aufgabe:
Gibt es eine Möglichkeit beim Fund eines Suchtextes in einem Kommentar alle entsprechende Zellen kenntlich zu machen, z.B. in dem man sie einfärbt oder in die Zelle daneben einen Wert schreibt?
Das würde mir wirklich sehr weiterhelfen.
Danke im Vorraus und ein frohes Fest,
Axel
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suchen & Ersetzen in Kommentaren
24.12.2010 11:26:14
ransi
HAllo Axel
Ein Ansatz ohne Fehlerbahndlung:
Option Explicit


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 "Bewertung: *" Then stext = Replace(stext, Arr(I) & vbLf, "")
        Next
        ZElle.NoteText stext
    Next
End Sub


ransi
Anzeige
;
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige