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 hCHIP-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 Das Skript wandelt das Argument in eine Zeichenkette um und entfernt Leerzeichen. Dann ermittelt es den Bruchstrich. Findet es keinen, wandelt es den Wert mit ╗CDbl½ in eine Zahl um. Ist ein Bruchstrich vorhanden, teilt das Makro die Zeichenkette in ZΣhler und Nenner. Ist im ZΣhler ein Leerzeichen enthalten, handelt es sich um ein vollstΣndiges Bruchformat mit ganzzahligem Anteil und ZΣhler. Nachdem das Programm auch diese Komponenten zerlegt hat, berechnet es den Bruchwert aus diesen Teilen. WΣhlen Sie ╗Datei | Schlie▀en und zurⁿck zu Microsoft Excel½. Jetzt geben Sie Ihre Brⁿche als Zeichenketten ein. Bevor Sie kⁿnftig Bruchrechnungen ausfⁿhren, wenden Sie die Funktion ╗Bruchwert½ auf die Zeichenkette an.