Hi,
ich habe von Arbeit aus einem Programm (englisch-sprachiges) eine ganze Menge Zahlen, die ich in Excel weiterverarbeiten will. Copy and Paste war nicht, da auf dem Arbeitsrechner kein Office installiert ist. Also habe ich alle Zahlen in eine Text-Datei kopiert.
Format ist:
1567.98
345.98
123.67
12.76
12342.78
usw. Problem für Excel ist der ".". Dadurch funktionieren die vielen netten kleinen Dinge wie Summe, Mittelwert etc. nicht, weil Excel es nicht als Zahlen sondern als Text behandelt (denke ich zumindest). Um das zu lösen habe ich folgendes gemacht:
</p><pre>Sub KOMMA()
Dim Wert As String
Dim Pos1 As Long
Dim c As Integer
For c = 1 To 487
Wert = ActiveSheet.Cells(c, 1).Value 'Hier sind die Daten hinterlegt
Pos1 = InStr(1, Wert, ".")
Mid(Wert, Pos1, 1) = ","
Wert = Wert * 1 'Aus String eine Zahl machen (?)
ActiveSheet.Cells(c, 1) = Wert
Next
End Sub</pre><p>
Das Ersetzen des "." klappt super, aber die Zellwerte werden nicht als Zahlen behandelt. Auch eine Zellformatierung als "Zahlen" bringt nichts.
Was mir aufgefallen ist, dass die Werte in den Zellen automatisch linksbündig erscheinen, entgegen Zahlen die ich per Hand eintippe. Hat das damit was zu tun?
Für Hilfe wäre ich extrem dankbar, es sind ca. 2000 Zahlen, die ich ungern ausdrucken und per Hand nochmal abtippen würde.
Danke schon mal,
vg,
sascha