myGully.com - VBA Umwandlung des Postleitzahlenformates

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - VBA Umwandlung des Postleitzahlenformates (https://mygully.com/showthread.php?t=1870958)

VBA Umwandlung des Postleitzahlenformates

Aufgabe:

Wegen einer Änderung des EDV-Systems muss dir Firma "InterSell" das Format der Post-
leitzahlen ihrer Kunden ändern. Sie sollen dazu ein Programm schreiben, dass das Format
automatisch umwandelt.

Schreiben sie In Excel einige Postleitzahlen auf die dann umgewandelt werden sollen.

Schreiben Sie ein Programm , das das Format der Postleitzahlen aus der Spalte C (beginnend in der Zelle C3) wie folgt ändert und in der Spalte D ausgibt:

Format alt: D60123

Format neu: D-60123

Es soll die Funktion Right verwendet werden.

Es wäre sehr nett wenn ihr mir helfen könnten weil ich verstehe davon gerade garnix...
Bitte um Hilfe

Danke im vorraus

Euer poeppse

[Link nur für registrierte und freigeschaltete Mitglieder sichtbar. Jetzt registrieren...]

Mithilfe der Right-Funktion nimmst du den hinteren Teil aus der Zelle und Speicherst ihn in eine Variable z.B.

Code:

var = Right((cells(3,3).value), 5)

Dann speicherst du das ganze in die Spalte D

Code:

cells(3,4).select = "D-" & var

Um alles nicht 100mal zu machen, verwendest du eine For-Schleife für die Cells-Funktion

Code:

For i = 3 to 100

var = trim(Right((cells(i,3).value), 5))

cells(i,4).select = "D-" & var

Next i

Den Code hab ich jetzt nicht getestet - könnte funktionieren.

Ich würde das ganze ja mit der Mid-Funktion machen.

Code:

For i = 3 to 100

länge=trim((len(cells(i,3)))-1)

var = trim(mid((cells(i,3).value), 1, 1)))

var1 =trim(mid((cells(i,3).value), 2, länge)))

cells(i,4).select = var & "-" & var1

Next i

So wäre gewährleistet, dass die Postleitzahl auch Ausländisch sein kann; und unbegrenzt lang.

Danke du hast mir echt weiter geholfen und jetzt habe ich es auch mal verstanden ....