Wenn Sie Excel verwenden, um Informationen aus einer externen Quelle abzurufen, kann es sein, dass Sie in Ihren Zellen ziemlich seltsame Informationen finden. Angenommen, Sie haben Zellen, die Zahlen wie 1.234,5- enthalten. Diese sind in Excel als Textzellen formatiert und können daher nicht für Berechnungen verwendet werden.

Das folgende Makro überprüft die Zellen in einem ausgewählten Bereich. Wenn die Zellen Text enthalten und dieser Text mit einem Minuszeichen endet, verschiebt das Makro das Minuszeichen an den Anfang des Textes und fügt es wieder in die Zelle ein. Das Ergebnis ist, dass die Zelle von einem Textwert in den richtigen numerischen Wert konvertiert wird.

Sub ConvToNum()

Dim MyText As Variant     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         MyText = MyRange.Cells(CellCount).Value         If VarType(MyText) = vbString Then             MyText = Trim(MyText)

If Right(MyText, 1) = "-" Then                 MyText = "-" & Left(MyText, Len(MyText) - 1)

MyRange.Cells(CellCount).Value = MyText             End If         End If     Next CellCount End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2300) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Konvertieren von Text in Zahlen.