Text in Zahl
09.08.2006 09:53:32
Thomas
ich hab da noch folgendes Problem beim Importieren einer Datei:
Die Gleitkommazahlen aus der zu importierenden Datei werden als Text eingefügt.
Ich müßte jetzt den Text in eine Zahl umwandeln oder gleich als Zahl einfügen.
Wer kann mir helfen?
nachfolgend mei bisheriger Code:
Private Sub öffnen_Click()
Dim Daten As Range
MsgBox ("Testreferenzjahr (.try) im entsprechenden Pfad auswählen")
Test = Application.GetOpenFilename(MultiSelect:=True) 'öffnet Fenster zum auswählen einer Datei
Set Daten = Workbooks("Mappe1").Worksheets(4).Range("A4:H8774") 'Zielbereich definieren
If IsArray(Test) Then
Workbooks.OpenText Test(1), origin:=xlWindows, StartRow:=1,
DataType:=xlDelimited, Textqualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Space:=True, FieldInfo:=Array(Array(1, 1),
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1),
Array(7, 1), Array(8, 1)), DecimalSeparator:="."
ActiveWorkbook.Worksheets(1).Columns("D:G").Replace What:=".",
Replacement:=",", _
SearchOrder:=xlByColumns, MatchCase:=True
'in Zahl umwandeln, wird sonst als Text erkannt
ActiveWorkbook.Worksheets(1).Range("A1:H8760").Copy Daten
MsgBox "Daten sind ausgelesen, somit kann die 'Beispiel'.try
gelöschtwerden! -Im nächsten Schritt NICHT speichen"
ActiveWorkbook.Close
Else
MsgBox ("Keine Datei gewählt")
End If
End Sub
Viele Grüße
Thomas
Anzeige