Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zahlen in Text per VB format, 0 als erste Ziffer

Zahlen in Text per VB format, 0 als erste Ziffer
06.03.2003 15:33:24
Sebastian
Hi,

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zahlen in Text per VB format, 0 als erste Ziffer
06.03.2003 15:38:48
MikeS

Hi,

versuchs mal mit einem "'" :

anstatt >>> Replacement:="0250"

so >>> Replacement:="'0250"

Ciao MikeS

Re: Zahlen in Text per VB format, 0 als erste Ziffer
06.03.2003 15:49:11
Sebastian

jau danke, das klappt...

Anzeige

363 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige