|
Hallo,
ich habe eine von einem Programm erstellte Excel-datei, die ich in eine andere Excel einlesen möchte.
In der einzulesenden Datei stehen immer in den Zellen A1 bis A14 jeweils Zahlen. Diese möchte ich trennen und rechts daneben in je eine Zelle schreiben, damit es übersichtlicher wird (für das anschließende Einlesen in die andere Excel Datei).
Die Zahlen sehen in einer Zelle z.B. so aus:
7,55,8,28,10,04,11,03
Problem: Es gibt nur Kommas! Es sind eig folgende Zahlen: 7.55 ; 8.28 ; 10.04 ; 11.03
Ich weiß aber, dass jede Zahl immer 2 Stellen nach dem Komma besitzt und danach die nächste Zahl kommt.
Wie kann man das in VBA Programmieren?
Das ist bisher mein VBA Code:
Sub test()
Set fs = ApplicationFileSearch
With fs
.LookIn = ThisWorkbook.Path
.FileName = "*.csv"
If .Execute > 0 Then
MsgBox "Es wurden " & .FoundFiles.Count & _
" Messung(en) gefunden."
For i = 1 To .FoundFiles.Count
Workbooks.OpenText FileName:=.FoundFiles(i), ConsecutiveDelimiter:=False, DecimalSeparator:="#", ThousandsSeparator:=".", DataType:=xlDelimited
--> Hier muss die Änderung rein
workbookname2_ = ActiveWorkbook.Name
worksheetname2_ = Worksheets(1).Name
'MsgBox workbookname_
'MsgBox worksheetname2_
Next i
Else
MsgBox "es wurde keine Messungen gefunden"
Application.CalculateFull
End If
End With
End Sub
Ich hoffe Ihr könnt mir helfen.
|