Hey KK,
dass er 0 anzeigt, heißt eigentlich, dass er den Absolut-Wert einer leeren Zelle ausgibt. Vielleicht nimmt er ihn aus dem aktiven Arbeitsblatt, welches ein anderes ist als das "Daten"-Arbeitsblatt. Daher also lieber:
ThisWorkbook.Worksheets(Daten).Range("B29") = Abs(ThisWorkbook.Worksheets(Daten).Range("B29"))
Was mich außerdem wundert sind die fehlenden Anführungszeichen des Datenblattnamen, es müsste eigentlich
ThisWorkbook.Worksheets("Daten").Range("B29") = Abs(ThisWorkbook.Worksheets("Daten").Range("B29"))
heißen.
Eine andere Variante, sofern hier möglich, wäre die bloße Änderung der Anzeige:
ThisWorkbook.Worksheets("Daten").Range("B29").NumberFormat = "0.00;0.00"
So wird die Zahl positiv angezeigt, auch wenn Du sie rauskopierst. Aber Achtung, wenn sie in eine Formel eingibst, ist sie weiterhin negativ.
Grüße
Y
|