[Veni_Vidi_Vici]

http://www.vbarchiv.net/commands/cmd_right.html

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

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

Dann speicherst du das ganze in die Spalte D

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

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

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.

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.