Zeichen am Textanfang einfügen

[excl50]

Hallo zusammen,

es sollen Zellen, die als Text formatiert sind geprüft werden auf die Anzahl der Zeichen. Wenn es 4 Zeichen sind soll an erster Stelle dieser Zelle eine 0 eingefügt werden, damit es 5-stellige Postleitzahlen sind.

So sieht das Makro bis jetzt aus:

Sub Makro ()

If Len(Cells(AnzahlZeilen, 6).Value) = 4 Then

End Sub

Vielen Dank

[Wastl]

hi,

ungeprüft:
If Len(Cells(AnzahlZeilen, 6).Value) = 4 Then
   Cells(AnzahlZeilen, 6)="0" & Cells(AnzahlZeilen, 6)
end if

[chris-ka]

Hi,

anbei etwas was auch 100.000 PLZ mal schnell umwandeln würde. ;)

Code:

Sub Makro()
    Dim AnzahlZeilen As Long, lngStart As Long
    Dim ArrPlz(), rng As Range, i As Long, intCol As Integer
    lngStart = 1 ' anpassen ab welcher Zeile beginnen die PLZ
    intCol = 6 'in welcher Spalte sind die PLZ
    AnzahlZeilen = Cells(Rows.Count, intCol).End(xlUp).Row
    Set rng = Range(Cells(lngStart, intCol), Cells(AnzahlZeilen, intCol))
    rng.NumberFormat = "@"
    ArrPlz = rng
    For i = 1 To UBound(ArrPlz)
        ArrPlz(i, 1) = Format(ArrPlz(i, 1), "00000")
    Next
    rng = ArrPlz
End Sub

[GMG-CC]

Moin,
Excel 2016 ... Da würde ich über Daten | Abrufen und transformieren, aka Power Query nachdenken, also ganz ohne VBA.

[Jockel]

Moin,
... Da würde ich über Power Query nachdenken...

Hallo Günther, nachgedacht darüber habe ich auch, aber hierfür (noch) keinen Ansatz...

[GMG-CC]

Moin Jörg,

das geht im Endeffekt über die Sprache M.
Prinzip in plain Excel: Rechts("0"&A1;5) was dann als M-Formel in einer benutzerdefinierten Spalte so aussieht:

Code:

=Text.End("0"&[Spalte1],5)

Ich habe mal einige Text-Zahlen als Datei angehängt. Ach ja, Power Query wird natürlich "mitdenken" und die Text-Zahlen im 2. Schritt als Zahl umwandeln. Den Schritt lösche ich einfach oder formatiere die Spalte explizit als Text.. Eine Prüfung auf ISNUMERIC habe ich mir nicht angetan.