Chr(160) mal wieder
13.01.2011 01:55:02
Alois G
Ihr kennt ja wohl
Cells.Replace What:=Chr(160), replacement:=""
Um von Webseiten kopierte Tabellen in Excel einzufügen.
Dann bleiben die Zahlen als Text stehen.
Wenn man das ganze von Hand macht (nur STRG H und geschütztes Leerzeichen ersetzen mit nichts) dann sind die Zahlen in einem Schritt richtig.
Der gleiche Ablauf als Makro löscht nur die Chr(160).
Das Makro
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
bleibt ohne Wirkung.
Nur hab ich im Forum nichts gefunden um nachher die als Text formatierten Zahlen mit Werte einfügen und multiplizieren mit 1 als Makro umzusetzen.
Geht das überhaupt?
Gruß
Alois