Beim Export Zahlen richtig formatieren
01.09.2003 14:39:48
Tim
Ich habe eine Tabelle, in der unterschiedlich formatierte Daten vorkommen. Z.B. steht in der ersten Spalte nur Text, in der zweiten Zahlen mit 2 Kommastellen und in der dritten Prozentangaben.
Ich habe mir nun (notdürftig) ein Exportmakro aus verschiedenen Forenbeiträgen zusammengebastelt.
Auszug daraus:
...
Sheets("Ausgabe").Select
Range("A1:K1050").Select
Dim iFile As Integer, iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
sFile = "A:\Ausgabe1.xls"
iFile = FreeFile
On Error GoTo Fehler
Open sFile For Output As iFile
For iRow = Selection.Row To Selection.Rows.Count
For iCol = Selection.Column To Selection.Columns.Count
sTxt = sTxt & Cells(iRow, iCol).Value & vbTab
Next iCol
sTxt = Left(sTxt, Len(sTxt) - 1)
Print #iFile, sTxt
sTxt = ""
Next iRow
ActiveWorkbook.Save
Close iFile
...
Mein Problem ist nun, dass die exportierte Datei alle Daten als Text ausgibt und ich mit den Zahlen nicht mehr weiterrechnen kann.
Ich kenne mich leider kaum mit VisualBasic aus. Deswegen würde ich mich über Vorschläge freuen, wie ich den Code verändern muss, damit die Zahlen und Prozentangaben auch wirklich als solche exportiert werden.
Vielen Dank im Voraus!
Tim