Ahaa! :)
15.12.2003 16:42:09
Alexej
So, ich glaube, ich habe euch genug genervt, aber ich glaube, ich bin der Loesung nahe. Der ganze Cirkus um die Konvertierung der Komma- und Punkttrennzeich ist deshalb, weil die "Val" Funktion bei Berechnungen mit Kommatrennzeichen alle Zahlen nach dem Komma abschneidet, mit Punkttrennzeichen jedoch wunderbar funktioniert.
Die "Cdbl" Funktion gibt jedoch eine Fehlermeldung aus (Error:13, Type mismatch)bei Berechnungen mit Punkttrennzeichen, funktioniert jedoch taddellos mit Kommatrennzeichen.
Kann ich nun Excel mitteilen, dass wenn in der Zelle ein Wert mit Kommatrennzeichen steht, dass er die "Cdbl" Funktion benutzen soll und vica verse, bei Punkttrennzeichen er mit der "Val" Funktion arbeiten soll.
Der Code sieht folgendermassen aus:
For Each rCell In ThisWorkbook.Worksheets("Gesamt").Range("$D$168:$F$175")
If rCell.Interior.ColorIndex = 37 Then
rCell.Value = 0
For i = 1 To Range("Znumberofcontracts").Value
If Not IsError(ThisWorkbook.Worksheets("Blt. " + CStr(i) + " Gesamt").Cells(rCell.Row + sumoffset, rCell.Column).Value) Then
rCell.Value = rCell.Value + CDbl(ThisWorkbook.Worksheets("Blt. " + CStr(i) + " Gesamt").Cells(rCell.Row + sumoffset, rCell.Column).Value)
End If
Next i
End If
Next
Ich bin sehr dankbar fuer euere Hilfe :)
Verzweifelter,
Alexej