Excel Zellformatierung für Widerstände Kilo, Meg usw

[Björn G. (tueftler)]

Hi für Widerstände zu sortieren habe ich mir die jeweiligen Zellen 
formatiert.
Leider bekomme ich es nicht hin z.b. bei 1800 1k8 angezeigt zu bekommen 
- 1k800 ist dagegen kein Problem.
Wie kann ich denn Excel erzählen das es die nullen da nicht einblenden 
braucht?

Auch bei 2M2 steht da nun 2M200000 :)

Derzeit sieht die Formatierung so aus:
[<1000]0;[<1000000]#"k"###;#"M"######

Björn

[Guido C. (guidoanalog)]

Hallo Björn,

die folgenden Aussagen beziehen sich auf EXCEL 2003.

Ich befürchte, dass die von Dir gewünschte Formatierung über ein 
benutzerdefiniertes Zahlenformat nicht hinzubekommen ist. Du kannst zwar 
durch Einfügen des "1000er Trennzeichens" die Ausgabe von Zahlen in 
Tausendern erzwingen, wenn Du dabei jedoch nicht das Dezimaltrennzeichen 
verwendest wird aus "3500" der Zahlenwert "4". EXCEL rundet in diesem 
Fall. So bald Du das Dezimaltrennzeichen in Deinem benutzerdefinierte 
Zahlenformat verwendest ist das Dezimaltrennzeichen jedoch auch in der 
Ausgabe.

Was Du hinbekommen kannst ist z. B. "3.k5". Besonders schön ist dies 
jedoch auch nicht. Hier das entsprechende benutzerdefinierte 
Zahlenformat:

[<1000]0;[<1000000]#."k"#,;#."M"#,,

Noch zur Info. Bei mir ist EXCEL wie folgt eingestellt.
Dezimaltrennzeichen => "."
1000er Trennzeichen => ","

Was auf jeden Fall geht ist, die Ausgabe über Hilfsspalten bzw. Zeilen 
zusammenzubauen.

Mit freundlichen Grüßen
Guido

[hp-freund (Gast)]

Guido C. schrieb:
> Ich befürchte, dass die von Dir gewünschte Formatierung über ein
> benutzerdefiniertes Zahlenformat nicht hinzubekommen ist.

Fürchte ich auch. Aber etwas ähnliches hatten wir hier schon mal:
Beitrag "[Excel] Milisekunden / benutzerdefinierte Formatierung"

Ich habe die Funktion etwas abgewandelt:

Function ToSciNum1(BaseNum As Double) As String

    Dim OrigNum As Double
    Dim Pref As Integer
    Dim Temp As String
    Dim Temp1 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"
        Case -5
            Temp = "f"
        Case -4
            Temp = "p"
        Case -3
            Temp = "n"
        Case -2
            Temp = "µ"
        Case -1
            Temp = "m"
        Case 0
            Temp = ","
        Case 1
            Temp = "k"
        Case 2
            Temp = "M"
        Case 3
            Temp = "G"
        Case 4
            Temp = "T"
        Case 5
            Temp = "P"
        Case 6
            Temp = "E"
        Case Else
            Temp = " "
    End Select

  Temp1 = Format(BaseNum, "0.0#")
  mid(Temp1,Instr(Temp1,","),1,Temp)
  ToSciNum1 = Temp1

End Function

Hab zwar Libreoffice, sollte aber auch in Excel funktionieren.
Musst nur prüfen ob das Punkt/Komma Problem besteht.

[Ich (Gast)]

Eine schmale Zelle nebendran als Eingabefeld nutzen und dann mit Formeln 
und Funktionen die Eingabe richtig formatiert in das Anzeigefeld 
übertragen?

[Guido C. (guidoanalog)]

Hallo,

hp-freund schrieb:
> Hab zwar Libreoffice, sollte aber auch in Excel funktionieren.

wenn man die folgende Zeile

hp-freund schrieb:
> mid(Temp1,Instr(Temp1,","),1,Temp)

durch die Zeile

Mid(Temp1, InStr(Temp1, ","), 1) = Temp

ersetzt, funktioniert die Funktion auch unter EXCEL 2003.

Mit freundlichen Grüßen
Guido

[hp-freund (Gast)]

Sehr schön ;-)

[Björn G. (tueftler)]

Hi!

Danke für die vielen Tipps :)

Dachte eigentlich das das Excel schon irgendwie könnte, naja.

Habe die Funktion noch etwas umgebaut da es noch nicht ganz klappte.
17,9993 ergab 18, statt 17,99
12 ergab 12, statt 12
12000000 ergab 12M0 statt 12M

Function ToSciNum1(BaseNum As Double) As String

    Dim OrigNum As Double
    Dim Pref As Integer
    Dim Temp As String
    Dim Temp1 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"
        Case -5
            Temp = "f"
        Case -4
            Temp = "p"
        Case -3
            Temp = "n"
        Case -2
            Temp = "µ"
        Case -1
            Temp = "m"
        Case 0
            Temp = ","
        Case 1
            Temp = "k"
        Case 2
            Temp = "M"
        Case 3
            Temp = "G"
        Case 4
            Temp = "T"
        Case 5
            Temp = "P"
        Case 6
            Temp = "E"
        Case Else
            Temp = " "
    End Select

  If ((OrigNum - Fix(OrigNum) = 0) And (OrigNum < 1000)) Then               'ohne Nachkommastellen und <1000
    Temp1 = Format(BaseNum, "0.#####")
    Temp1 = OrigNum
  Else
    Temp1 = Format(BaseNum, "0.0#")
    Mid(Temp1, InStr(Temp1, ","), 1) = Temp
  End If
  
  ToSciNum1 = Temp1

End Function

Anbei noch die Tabelle als .pdf .
Evtl. ist das ja dem ein oder anderen eine Hilfe wenn man mal wieder 
schnell einen exotischen Wert braucht :)
Widerstände der Reihe E12 als Parallelschaltung.

Björn