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ß, Wolli