Evan hat ein Arbeitsblatt, das eine Reihe von Notationen chemischer Verbindungen enthält, wie z. B. H2O. Wenn er die Verbindung zum ersten Mal betritt, kann er die 2 als Index formatieren, wie es sein sollte. Evan muss jedoch nach Fällen suchen, in denen die 2 nicht tiefgestellt ist, und sie durch die korrekt tiefgestellte Notation ersetzen. Er fragt sich, ob es einen einfachen Weg gibt, dies zu tun.

Es gibt keine Möglichkeit, dies mithilfe der Funktionen zum Suchen und Ersetzen von Excel zu tun.

Der Grund? Ein ExcelTips-Abonnent sagte: „Excel ist spektakulär schlecht im Umgang mit Rich Text in Zellen.“ Ein Beweis dafür ist die Tatsache, dass Sie in einer Zelle nicht nach gemischten Formatierungen suchen oder durch gemischte Formatierungen ersetzen können.

Beachten Sie, dass ich „gemischte Formatierung“ sagte, was Evan will – das „H“

und „O“ verwenden eine andere Formatierung als die „2“. Wenn Evan den gesamten Zelleninhalt in normalen Text ändern oder abonnieren wollte, hätten Sie das reguläre Tool zum Suchen und Ersetzen verwenden können. Bei gemischten Formatierungen funktioniert dies jedoch nicht.

Dies bedeutet, dass der beste Ansatz darin besteht, ein Makro zum Suchen und Ersetzen zu verwenden. Es gibt verschiedene Möglichkeiten, wie Sie dies erreichen können. Das Folgende ist nur eines.

Sub SubscriptNumbers()

Dim c As Range     Dim sWord As String     Dim sChar As String     Dim x As Long

For Each c In Selection         sWord = c.Value         For x = 1 To Len(sWord)

sChar = Mid(sWord, x, 1)

If sChar >= "0" And sChar <= "9" Then                 c.Characters(Start:=x, Length:=1).Font _                   .Subscript = True             End If         Next x     Next c     Set c = Nothing End Sub

Um das Makro zu verwenden, wählen Sie die Zellen aus, die Sie ändern möchten, und führen Sie es dann aus.

Es durchläuft jede Zelle in der Auswahl und untersucht dann den Zellinhalt. Wenn der Inhalt Ziffern enthält, werden diese Ziffern als Index formatiert.

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

Dieser Tipp (13362) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.