Ich habe in einer Spalte textformatierte Zahlen mit führenden Nullen stehen.
Wie kann ich ohne Hilfsspalte (z.B. =A2*1) die führenden Nullenden in der Spalte wegbringen, damit eine Zahlenformatierung vorhanden ist?
z.B. 00013,80 = 13,80
Danke
Josef
Sub Hema_Wien_Taxe()
Sheets("Wien").Select
Columns("G:G").Select
Selection.TextToColumns Destination:=Range("G1"), DataType:=xlFixedWidth, _
OtherChar:="/", FieldInfo:=Array(Array(0, 9), Array(17, 1)), _
TrailingMinusNumbers:=True
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("G2").Select
ActiveCell.FormulaR1C1 = "TAXE"
Range("A1").Select
End Sub
Sub Hema_Wien_Taxe()
Dim r As Range
For Each r In Intersect(Sheets("Wien").Columns("G:G").Cells, Sheets("Wien").UsedRange)
If IsNumeric(r) And Not IsEmpty(r) Then r = CDbl(r.Value)
Next r
End Sub
Gruß, WolliDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen