Datum kovertieren und Text zu Zahl umwandelper VBA
08.12.2014 15:13:07
Thomas
ich bastel mir gerade eine Auswertung einer CSV per Excel zusammen und hänge bei den gefühlt einfachsten Teilen.
die werte sind beispielhaft
01.12.2014 00:00;3.232,07;43,2;29,69;10,29
import klappt, jedoch sind die Zahlen für Excel Text.
Sub text_in_zahl()
Sheets("Sheet1").Select
Dim LetzteZeile As Long
Dim x As Long
LetzteZeile = Range("J65536").End(xlUp).Row
For x = 2 To LetzteZeile
Cells(x, 2) = CLng(Cells(x, 2))
Cells(x, 2).NumberFormat = "General"
Next
End Sub
Sub text_in_zahl()
Sheets("Sheet1").Select
Dim loletzte As Long
loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With Range("b2" & ":e" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
End Sub
funktionieren nicht
für das Datum habe ich mal die Zeilen formatiert zu Datum, jedoch muss ich dann jede einzelne Feld aktivieren und mit Enter bestätigen und habe keine Idee wie ich das automatisieren kann.