Wenn Sie Postleitzahlen aus einer Textdatei in eine Excel-Arbeitsmappe importieren, übersetzt Excel die Werte nicht selten als Zahlen und nicht als Postleitzahlen. Dies führt dazu, dass führende Nullen aus den Postleitzahlen entfernt werden, was später offensichtlich zu Problemen führen kann, wenn die Daten für den beabsichtigten Zweck verwendet werden.

Eine Lösung besteht natürlich darin, einfach das für Postleitzahlzellen verwendete Anzeigeformat zu ändern. (Excel bietet ein spezielles Format für Postleitzahlen, das auf der Registerkarte Nummer des Dialogfelds Zellen formatieren verfügbar ist.) Dies funktioniert möglicherweise für die Anzeige, aber den zugrunde liegenden Daten fehlen immer noch die führenden Nullen.

Wenn Sie möchten, dass die zugrunde liegenden Daten tatsächlich die führenden Nullen enthalten, verwenden Sie am besten ein Makro, das die Informationen in einer Zelle durchläuft und führende Nullen hinzufügt. Das folgende Makro macht genau das:

Sub MakeZIPText()

Dim ThisCell As Range

Application.ScreenUpdating = False     'Make sure format is text     Selection.NumberFormat = "@"

For Each ThisCell In Selection         'Strip the leading apostrophe, if any         If Left(ThisCell, 1) = "'" Then             ThisCell = Mid(ThisCell, 2, 99)

End If         'It's a 5-digit ZIP Code         If Len(ThisCell) <= 5 Then             ThisCell = "'" & Right("00000" & ThisCell, 5)

Else             ThisCell = "'" & Right("00000" & ThisCell, 10)

End If     Next ThisCell     Application.ScreenUpdating = True End Sub

Um das Makro zu verwenden, wählen Sie einfach den Zellenbereich mit den Postleitzahlen aus und führen Sie das Makro aus. Das Makro ändert tatsächlich den Zelleninhalt. Die Zellen enthalten keine numerischen Werte mehr (die Ursache des ursprünglichen Problems), sondern Textwerte. Dadurch können die führenden Nullen am Anfang der Postleitzahlen erscheinen.

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

Hinzufügen führender Nullen zu Postleitzahlen.