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 offensichtlich später zu Problemen bei der Verwendung der Daten für den beabsichtigten Zweck führen kann.

Eine Lösung besteht natürlich darin, einfach das für Postleitzahlzellen verwendete Anzeigeformat zu ändern. Dies mag für die Anzeige funktionieren, aber den zugrunde liegenden Daten fehlen immer noch die führenden Nullen. Eine bessere Lösung besteht darin, ein Makro zu verwenden, das durchläuft und den Informationen in einer Zelle 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 (2598) 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:

Hinzufügen führender Nullen zu Postleitzahlen.