Gerry hat eine Arbeitsmappe mit 22 Arbeitsblättern. Jedes Arbeitsblatt enthält ungefähr 20 Kommentare. Einige der Kommentare beziehen sich auf einen Unternehmensbereich.

Er möchte eine Massensuche durchführen und die Kommentare ersetzen, um jede Referenz zu finden (z. B. „ABC Division“) und durch etwas anderes zu ersetzen (z. B. „XYZ-Tochter“).

Ohne Verwendung eines Makros ist dies nicht möglich. Mit den regulären Such- und Ersetzungsfunktionen in Excel können Sie keinen Text in Kommentaren finden, aber Sie können Makrobefehle verwenden. Das Folgende ist ein einfaches Makro zum Ersetzen:

Sub ReplaceComments()

Dim cmt As Comment     Dim wks As Worksheet     Dim sFind As String     Dim sReplace As String     Dim sCmt As String

sFind = "ABC Division"

sReplace = "XYZ subidiary"



For Each wks In ActiveWorkbook.Worksheets         For Each cmt In wks.Comments             sCmt = cmt.Text             If InStr(sCmt, sFind) <> 0 Then                 sCmt = Application.WorksheetFunction. _                   Substitute(sCmt, sFind, sReplace)

cmt.Text Text:=sCmt             End If         Next     Next     Set wks = Nothing     Set cmt = Nothing End Sub

Die wichtigsten Zeilen hier sind diejenigen, die die Variablen sFind und sReplace festlegen.

Sie sollten diese so einstellen, dass sie widerspiegeln, wonach Sie suchen und durch was sie ersetzt werden sollen. Das Makro durchläuft jeden Kommentar in jedem Arbeitsblatt der aktuellen Arbeitsmappe und nimmt die Änderungen an der Stelle vor, an der sie sich befinden.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3534) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: