[Excel] Milisekunden / benutzerdefinierte Formatierung

[MtheK (Gast)]

Hallo Leute,
ich möchte dass mir Excel z.B. die Zahl "3,9E-3" als "3,9 ms" anzeigt.

Für Megahertz habe ich es mit folgendem benutzerdefinierten Zahlenformat 
geschafft:

#.##0.. "MHz"

"150E+6" wird als "150 MHz" angezeigt.

Für den oben genannten Fall finde ich jedoch das richtige Format nicht 
:(


Danke für etwaige Tipps!

lg,
Martin K.

[hp-freund (Gast)]

Ich denke dafür brauchst Du eine Funktion:

http://excel.tips.net/T002928_Engineering_Calculations.html

[MtheK (Gast)]

Danke, werde mir das mal angesehen und die Lösung ggf hier posten!

[Arc N. (arc)]

Wenn das Analyse-Addin installiert ist, geht z.B auch
=UMWANDELN(3,9E-03; "sec"; "msec")
http://office.microsoft.com/de-de/excel-help/umwandeln-funktion-HP010062311.aspx

[MtheK (Gast)]

Mit Hilfe des Links von hp-freund habe ichs mit folgender Funktion 
geschafft:

Function ToSciNum(BaseNum As Double, Unit As String) As String

    Dim OrigNum As Double
    Dim Pref As Integer
    Dim Temp As String

    Pref = 0
    OrigNum = BaseNum
    
    Select Case BaseNum
        Case Is >= 1
            While Abs(BaseNum) > 1000
                BaseNum = BaseNum / 1000
                Pref = Pref + 1
            Wend
        Case 0
            Pref = 99
        Case Else
            While Abs(BaseNum) < 1
                BaseNum = BaseNum * 1000
                Pref = Pref - 1
            Wend
    End Select

    Select Case Pref
        Case -6
            Temp = "a" & Unit
        Case -5
            Temp = "f" & Unit
        Case -4
            Temp = "p" & Unit
        Case -3
            Temp = "n" & Unit
        Case -2
            Temp = "µ" & Unit
        Case -1
            Temp = "m" & Unit
        Case 0
            Temp = Unit
        Case 1
            Temp = "k" & Unit
        Case 2
            Temp = "M" & Unit
        Case 3
            Temp = "G" & Unit
        Case 4
            Temp = "T" & Unit
        Case 5
            Temp = "P" & Unit
        Case 6
            Temp = "E" & Unit
        Case Else
            Temp = ""
    End Select

    ToSciNum = Format(BaseNum, "0.0") & " " & Temp

End Function

Zwei unbedeutend kleine Probleme habe ich dabei noch:
1) Damit ich die Funktion aufrufen kann, muss ich den ganzen 
Dateinamen/Modul-Wulst angeben: 
=PNM_FFT_Timing.xlsm!ToSciNum.ToSciNum(...)

2) Da die Funktion einen String zurückgibt (Wert + Einheit) kann ich 
natürlich damit nicht mehr weiterrechnen. Gäbs dafür auch noch eine 
Lösung (Ohne die Einheit in einer anderen Zelle anzeigen zu lassen!)?


@Arc Net: Beider deiner Funktion muss ich a) die Größenordung fix 
angeben, und b) wird die Einheit nicht angezeigt. Danke für den Tip, ist 
aber nicht  das was ich suche.

[hp-freund (Gast)]

Hallo MtheK,

ich habe deine Funktion in LibreOffice getestet. Funktioniert.
Hier ist es so das ich die Funktion/das Makro direkt in das Dokument 
einfüge.
Unter Makros:
Dokument -> Standard -> Module1 -> ToSciNum
Dann erfolgt der Aufruf wie im Bild.
Excel/Window$ ist aber schon zu lange her. Weiss ich nicht mehr wie das 
da war.

Zu 2) :
Du hast doch noch die originale Zahl ;)