Guten Tag
Sowohl .Cells(i, XXXs) als auch (i, XXXr) enhalten in der Regel Zahlen, manchmal auch ein String.
Wenn in der einen oder anderen Zelle ein String enthalten ist, soll der Variable XXXdiff 0 zugewiesen werden.
Das funktioniert aber nicht, denn die Codezeile if IsError ... kann nicht ausgewertet werden ( --> "<li></li>Typen unverträglich"), wenn die eine Zeile ein String enthält. Wie muss der Code hier lauten? Die Variable XXXdiff habe ich als Double dimensioniert. Es handelt sich um einstellige Zahlen mit 4 Nachkommastellen. Ist das der richtige Typ?
Danke für eine Antwort auf diese beiden Fragen.
Gruss, Peter
With ActiveSheet
'schleife (von unten nach oben!)
For i = zEnd To zAnf Step -1
If IsError(XXXdiff = .Cells(i, XXXs) - .Cells(i, XXXr)) Then
XXXdiff = 0
Else
XXXdiff = .Cells(i, XXXs) - .Cells(i, XXXr)
End If
If XXXdiff < 0 And .Cells(i, UMSf) < 0 Then
.Cells(i, FACs) = -.Cells(i, FACs)
Else
.Cells(i, FACs) = 0
End If
If .Cells(i, DATs) = "" Then .Cells(i, FACs) = ""
Next i
End With
If XXXdiff < 0 And .Cells(i, UMSf) < 0 Then
.Cells(i, FACs) = -.Cells(i, FACs)
Else
.Cells(i, FACs) = 0
End If
Next i