Zahl ohne E+15 darstellen
07.06.2004 22:12:20
Tobias
ich habe das Problem, dass meine Zahlen nicht richtig dargestellt werden.
Die spalte B ist als Text formatiert was ich auch nicht kann/will. Nun habe ich versucht, mit volgendem Code die Zahlen richtig darstellen zu lassen, was auch funktioniert. Nur die Zahlen mit E+15 werden nicht richtig dargestellt. Hat jemand eine Idee?
Sub setStyle()
Dim lResultLastRow As Long
Dim sTemp As String
Range("A1").Select
On Error Resume Next
lResultLastRow = Cells.Find("*", Range("A1"), xlFormulas, , _
xlByRows, xlPrevious).Row
For Each h In Range(Cells(2, 2), Cells(lResultLastRow, 2))
sTemp = Cells(h.Row, 2)
Cells(h.Row, 2).FormulaR1C1 = sTemp
Next h
End Sub