Zahlen in Text per VB format, 0 als erste Ziffer

ich habe folgendes Formatierungsmakro. Dabei muss ich in der Spalte e UNBEDINGT die dreistelligen Zahlen in vierstellige formatieren. Aber Excel nimmt es per Makro bzw. suchen/ersetzen partout nicht an. Nur per Handeingabe kann man das realisieren.

Wie ihr seht habe ich schon erst in vierstellige Zahl formatiert und dann in Text, auch erst ungekehrt. Das Problem ist dabei, dass die Spalte letztendlich unbedingt als Text formatiert werden MUSS! Excel schneidet dann aber immerwieder die erste null ab.

Hat jemand eine Lösung???

Danke, Sebastian

Sub Zeilen_loeschen()

Application.ScreenUpdating = False

Dim i As Long
Dim Letzte As Long
Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

For i = Letzte To 1 Step -1
If Cells(i, 9) = 0 Then Rows(i).Delete
Next

Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

ActiveWorkbook.Names.Add Name:="Stunden", RefersToR1C1:= _
"=Kopiertabelle!R2C1:R" & Letzte & "C23"

With Range("E2:E" & Letzte)
.NumberFormat = "0000"
.HorizontalAlignment = xlRight
End With

Range("X1").Select
Selection.copy
With Workbooks("Export_cognos.xls").Worksheets("Kopiertabelle").Range("E2:E" & Letzte)
.PasteSpecial Paste:=xlValues, Operation:=xlMultiply
.NumberFormat = "@"
.Replace What:="250", Replacement:="0250", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False
End With

Application.ScreenUpdating = True

End Sub