Text in Zahlen
17.03.2005 20:52:52
Frank P.
ich habe in der Recherche eine Hilfe zu meinem Problem gefunden welche manuell sehr gut funktioniert aber beim automatisieren mächtig hapert.
Ich habe ein Arbeitsblatt welches mir nach dem Transponieren die Werte als Text ausgibt. Nun habe ich gefunden, wenn ich in eine x beliebige Zelle eine 1 eingebe - auf kopieren gehe - den gesamten Bereich welcher die Textfelder enthält markiere und über Inhalte Einfügen und multipliziere die Aktion abschließe sind alle Zellen als Zahlen formatiert. Über den Makrorecorder passiert da gar nichts.
Kann mir jemand bei VBA unter die Arme helfen?
Danke und Gruß Frank
Range("IV1").Select
ActiveCell.FormulaR1C1 = "1"
Selection.Copy
Range("D2:HK54").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("IV1").Select
Application.CutCopyMode = False
Selection.ClearContents