Hallo,
mein Makro wandelt Zahlen zur besseren Lesbarkeit in ein benutzerdefiniertes Format um. Aus 60.000 werden 60 Mil.
Problem: Steht eine Formel drin z.B. = A2 * 5 (60.0000 * 5), werden nicht 300 Mil angezeigt, sondern 0,3 Mil und die Formel verschwindet.
Hier mein Code:
For Each zelle In ActiveSheet.UsedRange
'nur gefüllte Zellen mit Zahlen
If IsNumeric(zelle) = True And zelle.Value "" Then
'wenn schon auf Mil, dann rausspringen
If zelle.NumberFormat = "#,##0 ""Mil""" Or zelle.NumberFormat = "#,##0.00 ""Mil""" Then Exit Sub
zelle.Value = zelle.Value / 1000
'wenn Wert keine Hunderte Pesos enthält, dann ohne Nachkommastellen
If Round(zelle.Value) - zelle.Value = 0 Then
zelle.NumberFormat = "#,##0 ""Mil"""
Else:
zelle.NumberFormat = "#,##0.00 ""Mil"""
End If
End If
Next zelle
Wie kann ich die Formel erhalten und auch zum richtigen Ergebnis kommen?
Gruß
Joachim