Justin hat Teilenummern, die er routinemäßig in einem Arbeitsblatt verwendet, z. B. 660501C016971. Er möchte ein benutzerdefiniertes Format auf die Zelle anwenden und die Teilenummer automatisch mit Bindestrichen an der richtigen Stelle anzeigen lassen, z. B. 6605-01-C01-6971.

Leider kann dies nicht mit einem benutzerdefinierten Format durchgeführt werden. Warum? Weil benutzerdefinierte Formate für die Anzeige von Zahlen und nicht für Text vorgesehen sind. Es gibt ein Textformat, das durch ein „at-Zeichen“ (@) gekennzeichnet ist, aber das ist es; Es gibt keine anderen und es können keine anderen definiert werden.

Da benutzerdefinierte Formate nicht verwendet werden können, muss eine Problemumgehung gefunden werden. Eine Möglichkeit besteht darin, Ihre Teilenummern zu überprüfen und festzustellen, ob der Textteil der Nummer entfernt werden kann und die Teilenummer weiterhin verwendet werden kann. Zum Beispiel ist Justins Nummer 660501C016971. Wenn das Format für die Teilenummer immer den Buchstaben C an derselben Stelle in der Teilenummer fordert (und keine anderen möglichen Buchstaben dort), können Sie einfach das C löschen und die Nummer 660501016971 erhalten. Da es sich um eine Nummer handelt können Sie ein benutzerdefiniertes Format dafür entwickeln, das Bindestriche an den richtigen Stellen und den Buchstaben C an der richtigen Stelle enthält. Das benutzerdefinierte Format würde folgendermaßen aussehen:

0000-00-C00-0000

Wenn das Format auf eine Zelle angewendet wird, die die Nummer 660501016971 enthält, wird am Ende eine korrekt formatierte Teilenummer angezeigt:

6605-01-C01-6971. Dieser Ansatz hat jedoch Nachteile. Der größte Nachteil ist, dass, wenn Sie die Teilenummern jemals in ein anderes Programm exportieren möchten, möglicherweise als CSV-Datei, am Ende die ursprüngliche Nummer ohne Formatierung oder Buchstaben C exportiert wird.

Eine andere Problemumgehung besteht darin, eine Formel zu verwenden, um die Teilenummern in dem gewünschten Format anzuzeigen. Sie können sie in eine Zelle ohne Bindestriche eingeben und dann mit der Formel die Bindestriche an den entsprechenden Stellen hinzufügen.

Beim Erstellen von Berichten würden Sie dann einfach die Spalte ausblenden, die die Teilenummern ohne die Bindestriche enthält. Hier ist eine Formel, die funktioniert, vorausgesetzt, die Teilenummer ohne Bindestriche befindet sich in Zelle A1:

=LEFT(A1,4) & "-" & MID(A1,5,2) & "-" & MID(A1,7,3) & "-" & RIGHT(A1,4)

Wenn Sie viel mit den Teilenummern arbeiten, möchten Sie möglicherweise die Striche einfach hinzufügen und entfernen. Der beste Weg, dies zu tun, ist mit einem Makro. Sie können ein Makro entwickeln, mit dem Sie die Bindestriche zu einer Teilenummer in einem ausgewählten Zellbereich hinzufügen und daraus entfernen können. Das Folgende ist ein Beispiel für ein solches Makro.

Sub DashesIn()

DoDashes ("In")

End Sub
Sub DashesOut()

DoDashes ("Out")

End Sub
Private Sub DoDashes(What As String)

Dim c As Range     Dim J As Integer

For Each c In Selection.Cells         If c.Value <> "" Then             J = InStr(c.Value, "-")

Select Case What                 Case "Out"

While J > 0                         c.Value = Left(c.Value, J - 1) & _                           Mid(c.Value, J + 1, Len(c.Value))

J = InStr(c.Value, "-")

Wend                 Case "In"

If J = 0 Then                         c.Value = _                           Left(c.Value, 4) & "-" & _                           Mid(c.Value, 5, 2) & "-" & _                           Mid(c.Value, 7, 3) & "-" & _                           Right(c.Value, 4)

End If             End Select         End If     Next c End Sub

Beachten Sie, dass diese Liste tatsächlich drei Makros enthält. Das erste (DashesIn) fügt einer Teilenummer Bindestriche hinzu, während das zweite (DashesOut)

entfernt sie. Wählen Sie einfach die Zellen mit den Teilenummern aus und führen Sie das Makro aus, das den gewünschten Vorgang ausführt.

Sowohl DashesIn als auch DashesOut rufen die allgemeine Routine DoDashes auf, um die Arbeit tatsächlich zu erledigen. Das Makro untersucht alle Zellen in der Auswahl und führt dann alle Operationen aus, die für den Inhalt dieser Zellen erforderlich sind.

_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 (9394) 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: