Oscar muss die Schriftart und Schriftgröße bestimmen, die auf Text in einer Zelle angewendet werden. Wenn sich der Text in Zelle A1 beispielsweise in 12-Punkt-Arial befindet, möchte er eine Funktion, mit der „Arial“ in Zelle B1 und 12 in Zelle C1 zurückgegeben werden kann.

In Excel ist nichts integriert, mit dem diese Formatierungsinformationen abgerufen werden können. Sie können jedoch ein sehr einfaches Makro erstellen, das den Trick ausführt. Das folgende Makro verwendet als Argumente eine Zellreferenz und optional einen Indikator dafür, welche Daten zurückgegeben werden sollen.

Function FontInfo1(Rn As Range, Optional iType As Integer)

If iType = 2 Then         FontInfo1 = Rn.Font.Size     Else         FontInfo1 = Rn.Font.Name     Endif End Function

Sie verwenden die Funktion, indem Sie eine Formel wie diese in einer Zelle verwenden:

=FontInfo1(A1,1)

Der zweite Parameter (in diesem Fall 1) bedeutet, dass Sie den Schriftnamen möchten.

Wenn Sie den zweiten Parameter auf 2 ändern, wird die Schriftgröße zurückgegeben.

(Eigentlich könnte der zweite Parameter etwas anderes als 2 sein – oder ganz weglassen – und er gibt den Schriftnamen zurück.)

Wenn Sie beide Werte gleichzeitig zurückgeben möchten, können Sie eine weniger bekannte Methode anwenden, um Arrays von Informationen von einer benutzerdefinierten Funktion zurückzugeben. Versuchen Sie Folgendes:

Function FontInfo2(c As Range) As Variant     FontInfo2 = Array(c.Font.Name, c.Font.Size)

End Function

Wählen Sie zwei horizontal benachbarte Zellen aus (z. B. C7: D7) und geben Sie die folgende Formel ein:

=FontInfo(A1)

Da die Funktion ein Array zurückgibt, müssen Sie die Formeleingabe durch Drücken von Umschalt + Strg + Eingabetaste beenden. Der Schriftname wird in der ersten Zelle (C7) und die Schriftgröße in der zweiten Zelle (D7) angezeigt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (11358) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Bestimmen der Schriftformatierung.