Terry hat eine riesige Liste von Namen in einem Excel-Arbeitsblatt. Einige sind nur die Namen, andere haben Wörter in Klammern hinter sich. Leider haben einige der Wörter in Klammern keine schließende Klammer und Terry muss die schließende Klammer manuell hinzufügen. Er fragt sich, ob es eine Möglichkeit gibt, eine Klammer mithilfe einer Platzhaltersuche hinzuzufügen und zu ersetzen.

Die kurze Antwort lautet, dass Sie dies nicht durch Suchen und Ersetzen tun können, weder durch Platzhalter noch durch reguläre Karten. Sie können jedoch eine Formel verwenden, um fehlende Klammern hinzuzufügen. Das Folgende ist nur ein Beispiel für die Art der Formel, die Sie verwenden können:

=IF(AND(NOT(ISERROR(SEARCH("[",A1))),NOT(RIGHT(A1,1)="]")),A1&"]",A1)

Der Trick besteht darin, zu überprüfen, ob die Zelle (in diesem Fall A1) eine linke Klammer enthält, und in diesem Fall nach der rechten Klammer zu suchen. Wenn die rechte Klammer nicht gefunden wird, fügen Sie eine an den Inhalt der Zelle an.

Hier ist eine weitere Variation des gleichen Formelthemas:

=IF(ISERROR(FIND("[",A1)),A1,IF(ISERROR(FIND("]",A1)),A1&"]",A1))

Wenn Sie regelmäßig eine große Anzahl von Zellen auf fehlende Klammern überprüfen müssen, möchten Sie möglicherweise ein Makro erstellen, das einen Zellbereich untersucht und bei Bedarf eine rechte Klammer hinzufügt. Hier ist ein Beispiel, wie ein solches Makro formuliert werden könnte:

Sub Close_Bracket()

Dim c As Range     Const csLBrk As String = "["

Const csRBrk As String = "]"



On Error Resume Next     For Each c In Selection.Cells         If InStr(1, c.Value, csLBrk) > 0 And _           InStr(1, c.Value, csRBrk) = 0 Then             c.Value = c.Value & csRBrk         End If     Next c End Sub

Um das Makro zu verwenden, wählen Sie einfach den Zellenbereich aus, den Sie beeinflussen möchten, und führen Sie ihn dann aus. Die Zellen werden vor Ort untersucht und bei Bedarf modifiziert.

_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 (126) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: