Werte nach Import keine Zahlen sondern Texte?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Jochen,
ich importiere die Daten aber nicht über den Importassistenten, sondern über einen VBA-Code. Die Passage meines Makros, dass die Daten ausließt sieht wie folgt aus:
'------------------------------------------------------------------------------------------------------------
'CSV-Datei auslesen
Set objFileSystem = CreateObject("scripting.filesystemobject")
Set objFolder = objFileSystem.getfolder(strPfad)
intFREE = FreeFile
lngRow = 2
Open strPfad & strDateien For Input As intFREE
Do Until EOF(intFREE)
Line Input #intFREE, strTextCSV
myArr = Split(strTextCSV, ";") 'Trennzeichen anpassen
With wksNewSheet
wksNewSheet.Range(wksNewSheet.Cells(lngRow, 1), _
wksNewSheet.Cells(lngRow, UBound(myArr) + 1)) = myArr
End With
lngRow = lngRow + 1
Loop
Close #intFREE
Ich nehme diese Variante, da hier auf jeden Fall das Semikolon als Trennzeichen verwendet wird, egal was ansonsten in den Ländereinstellungen eingestellt ist, da es damit auf verschiedenen Rechner, trotz richtiger Ländereinstellung , zu Problemen beim Trennzeichen kam.
Durch diese Importvariante sehen die Daten dann so aus, wie im Screenshot aus meiner Frage.
MfG,
Oliver

Sub test() Dim i As Long Dim sh As Object Set sh = ActiveSheet For Each z In Range("A1:G25") 'anpassen If InStr(1, z.Value, ".") > 0 Then z.Value = Format(CVDate(z.Value), "dd.MM.yyyy") z.NumberFormat = "DD.MM.YYYY" End If If InStr(1, z.Value, ":") > 0 Then z.Value = Format(CVDate(z.Value), "hh:mm:ss") z.NumberFormat = "hh:mm:ss" End If If InStr(1, z.Value, ",") > 1 Then z.Value = z.Value * 1 z.NumberFormat = "#,##0.00" End If Next End Sub

Hallo Oliver,
habe eine Prüfroutine eingebaut. Jetzt klappt's auch mit der Uhrzeit.

Sub test()
Dim i As Long
Dim sh As Object
Dim p As Boolean
Dim z1, z2 As Date
Application.ScreenUpdating = False
z1 = Now()
Set sh = ActiveSheet
For Each z In Range("A3:G22562") 'anpassen
stBar = Application.StatusBar
Application.StatusBar = z.Row
Debug.Print z.Address
If InStr(1, z.Value, "/") > 0 Then
z.Value = Format(CVDate(z.Value), "dd.MM.yyyy")
z.NumberFormat = "DD.MM.YYYY"
End If
If InStr(1, z.Value, ":") > 0 Then
z.Value = CVDate(z.Value)
z.NumberFormat = "hh:mm:ss"
p = True
End If
If p = False Then
If InStr(1, z.Value, ",") > 1 Then
z.Value = z.Value * 1
z.NumberFormat = "#,##0.00"
End If
End If
p = False
Next
z2 = Now
Application.ScreenUpdating = True
Application.StatusBar = stBar
MsgBox "Makrolaufzeit: " & Format(z2 - z1, "hh:mm:ss")
End Sub

Mit Deiner Beispieltabelle läuft das Makro auf meinem PC drei Minuten und 30 Sekunden.
Danach ist alles richtig umgesetzt.
Gruß
Jochen

Beliebteste Forumthreads (12 Monate)

Werte nach Import keine Zahlen sondern Texte?

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte nach Import keine Zahlen sondern Texte?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread