Mit ungekⁿrzten Brⁿchen rechnen

Wenn ich in einer Zelle einen Bruch eingebe, kⁿrzt Excel diesen automatisch. Ich m÷chte jedoch den ungekⁿrzten Bruch sehen. Wie geht das?

Bereits bei der Dateneingabe mⁿssen Sie aufpassen. Falls die Zelle noch kein Bruchformat besitzt, interpretiert Excel eine Eingabe wie ╗4/20½ als Zeitangabe. Kennzeichnen Sie daher den Bruch mit ╗0 4/20½. Intern speichert Excel Brⁿche wie Zahlen. Nach der Eingabe von ╗0 4/20½ erscheint in der Zelle der Wert ╗0,2½.
NΣchstes Problem:Selbst wenn Sie die Zelle mit dem Bruchformat versehen, wei▀ Excel den Nenner des Bruches nicht mehr. Deswegen erscheint der Bruch mit dem im Format vorgegebenen festen Nenner oder gekⁿrzt.
Ungekⁿrzte Brⁿche k÷nnen Sie daher nur im Textformat darstellen. Beginnen Sie dafⁿr die Dateneingabe mit einem Apostroph ╗ƽ oder weisen Sie der Zelle vorher das Textformat zu. Doch wie nun damit rechnen?Die Excel-Funktion ╗Wert½ kann den Inhalt nur in eine Zahl umwandeln, wenn das Bruchformat mit vorangestellter Null angegeben ist. Definieren Sie deshalb eine eigene Funktion fⁿr diese Umwandlung. ▄ber ╗Extras | Makro | Visual Basic-Editor½ starten Sie den VBA-Editor. Dort fⁿhren Sie ╗Einfⁿgen | Modul½ aus und geben folgenden Code ein oder laden ihn von der Heft-CD CHIP-Code EXCBRUCH:

Function Bruchwert(X)
Dim Pos, Pos2
X = Trim$(CStr(X))
Pos = InStr(X, "/")
If Pos > 0 Then
Z$ = Left$(X, Pos - 1)
N$ = Mid$(X, Pos + 1)
Pos2 = InStr(Z$, " ")
If Pos2 > 0 Then
G$ = Left$(Z$, Pos2 - 1)
Z$ = Mid$(Z$, Pos2 + 1)
End If
Bruchwert =Val(G$)+Val(Z$)/Val(N$)
Else
Bruchwert = CDbl(X)
End If
End Function