Text Import mittels Makro - Zahlen gewünscht
06.12.2005 12:42:52
Thias
habe hier ein tolles Makro von Heiko S. bekommen. Leider hat er meinen letzten Post wohl nicht mehr gelesen. Die Daten, die mittels diesem Makro importiert werden sollen, sind Zahlen. Nach dem Import ist das Format der Daten jedoch Text. Ich hätte jedoch gerne Zahlen.
Leider kann ich wegen meiner sehr bescheidenen VBA Kenntnisse aus dem Quelltext nicht abstrahieren, was ich ändern muss, um Zahlen statt Text zu erhalten beim importieren duch das Makro.
Vielleicht kann mir einer der Anwesenden Experten helfen?
Gruß Thias
------------------------------------------------------------------------------
Sub TextImportHS()
Dim sFile As String, sText As String
Dim arrInput() As String, arrhelp() As String
Dim intI As Integer
ChDir "H:\EXCEL\Muell"
sFile = "Spalte.txt"
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!", , "Warnung!"
Exit Sub
End If
Application.ScreenUpdating = False
Open sFile For Binary As #1
sText = Space(LOF(1))
Get #1, , sText
arrInput = Split(sText, vbCrLf)
Close #1
For intI = 0 To UBound(arrInput)
arrhelp = Split(Replace(Replace(arrInput(intI), Chr(9), ";"), ".", ","), ";")
Range(Cells(intI + 12, 2), Cells(intI + 12, UBound(arrhelp) + 2)) = arrhelp
Next intI
Cells.NumberFormat = "@"
Application.ScreenUpdating = True
MsgBox "import complete!", vbInformation, "Hinweis!"
End Sub