VBA Umwandlung des Postleitzahlenformates

poeppse · 11.05.09, 11:26

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

Veni_Vidi_Vici · 11.05.09, 15:01

[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu 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.

poeppse · 12.05.09, 19:32

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