Als Text gespeicherte Zahlen
12.07.2004 13:58:41
BSchlaak
ich dreh noch durch! Ich importiere mit VBA aus einer Textdatei einen Haufen Zahlen in Excel. Allerdings ist Excel natürlich mal wieder schlauer und meint, es müsse die Zahlen in Text konvertieren. Nun gut, man kann das ja auch wieder rückgängig machen - dachte ich mir.
Folgender Code bewirkt aber leider GAR NIX:
---8 intUsedRows = Activesheet.UsedRange.Rows.Count
intUsedCols = Activesheet.UsedRange.Columns.Count
Set rngSource = Activesheet.Cells(1, (intUsedCols + 1))
Set rngTarget = Activesheet.Range(Activesheet.Cells(2, 5), Activesheet.Cells(intUsedRows, intUsedCols))
rngSource.Value = 1
rngSource.Copy
rngTarget.PasteSpecial Operation:=xlPasteSpecialOperationMultiply
--->8---
Im Prinzip sollte damit genau das funktionieren, was bei diesem Problem in diesem und in anderen Foren als Lösung empfohlen wird: in eine leere Zelle eine 1 schreiben und diese dann mit "Multiplizieren" in den Bereich, der die als Text gespeicherten Zahlen enthält, kopieren. Leider jedoch sehen die Zahlen genauso aus wie vorher. Totaler Müll.
Und per Schleife zeilen- und spaltenweise durchzugehen und jeden Inhalt einzeln mit 1 zu multiplizieren dauert bei einem entsprechend großen Blatt selbst nem 4-Prozessor-System einige Minuten ... für die Anwendung inakzeptabel.
Weiß jemand Rat?
Björn