Enter drücken mit Makro drücken automatisieren
28.08.2008 15:51:00
vu.x
ich habe ein "dummes" Problem.
In einer Spalte habe ich Zahlen stehen auf die ein VLOOKUP laufen soll.
Diese Spalte hat Werte die so aussehen:
000001
000002
000100
.
.
.
Die Quellspalte hat solche Werte
1
2
100
.
.
.
Wenn ich jetzt in der Zielspalte in die Zellen mit den Zahlen gehe und "Enter" drücke verschwinden die Nullen und der VLOOKUP funktioniert. Problem ist nur dass ich viele 1000 Zeilen habe...
Wie kann man mit einem Makro (Schleife) dieses Enterdrücken automatieseren?
So sah der Code aus wenn man ihn aufnimmt:
Range("A4").Select
ActiveCell.FormulaR1C1 = "19"
Range("A5").Select
ActiveCell.FormulaR1C1 = "23"
.
.
.
Problem: er schreibt hart die Zahlen rein die rauskommen also aus 000019 wurde 19 gemacht...
Wäre über Hilfe sehr dankbar!
Anzeige