AW: andere Möglichkeiten
30.01.2009 19:19:00
Daniel
Hi
falls tatsächlich Ziffernfolgen (dh. Text) in Zahlen umgewandelt werden sollen, gäbs noch folgende möglichkeiten:
1. irgendwo ne 1 reinschreiben, die kopieren und per INHALTE EINFÜGEN - MULTIPLIZIEREN auf andern Werte anwenden, als Code dann so:
Sub test()
With ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks)(1)
.Value = 1
.Copy
Selection.SpecialCells(xlCellTypeConstants, 2).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=True, Transpose:=False
.ClearContents
End With
End Sub
2. wenn die Werte alle in einer Spalte stehen, dann kann man auch über DATEN - TEXT IN SPALTEN die Texte in Zahlen umwandeln:
Sub Makro2()
Selection.TextToColumns Destination:=Selection(1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
Gruß, Daniel