Habe folgendes Problem:
Habe mir eine Tabelle importiert. Nun werden die Zahlen wie folgt dargestellt:
1200-
Ich möchte dies nun für die ganze Tabelle umformatieren und zwar soll das Minuszeichen vor dem Wert stehen aus 1200- soll -1200 werden. Hatte auch schon folgendes Makro:
Sub Umwandeln()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Select
For zeIndex = 1 To 6500
For spIndex = 1 To 18
If Right(Worksheets(ActiveSheet.Name).Cells(zeIndex, spIndex), 1) = "-" Then
If Val(Worksheets(ActiveSheet.Name).Cells(zeIndex, spIndex)) <> -1 Then
Worksheets(ActiveSheet.Name).Cells(zeIndex, spIndex).Value = CDbl(CCur(Worksheets(ActiveSheet.Name).Cells(zeIndex, spIndex).Value))
End If
End If
Next spIndex
Next zeIndex
Next
End Sub
Doch wenn ich es ausführe bekomme ich eine Fehlermeldung "Typen unverträglich" und mir wird folgende Zeile im Makro makiert:
Worksheets(ActiveSheet.Name).Cells(zeIndex, spIndex).Value = CDbl(CCur(Worksheets(ActiveSheet.Name).Cells(zeIndex, spIndex).Value))
Wo liegt der Fehler, oder kennt jemand eine bessere Lösung ?
Gruß
peter