Schriftart in einer Zelle bestimmen

04. Juni 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

So ermitteln Sie den Zeichensatz per VBA

Wenn Sie feststellen möchten, mit welcher Schriftart eine Zelle formatiert ist, können Sie die entsprechende Zelle anklicken und über die Tastenkombination STRG 1 das Dialogfenster "Zellen formatieren" aufrufen. Im Register "Schrift" können Sie die verwendete Schriftart ablesen.

Wie erledigen Sie diese Aufgabe aber per VBA? Setzen Sie die Eigenschaft Font.Name der Zelle ein. Das folgende Makro zeigt, wie das geht:

Sub StelleSchriftartfest()
 MsgBox ActiveCell.Font.Name, _
 vbInformation, "Aktuelle Schrift"
End Sub

Nach dem Start zeigt das Makro die Schriftart an, die in der aktiven Zelle hinterlegt ist. Die folgende Abbildung zeigt, wie das aussehen kann:

Um eine andere Zelle als die aktive Zelle abzufragen, ersetzen Sie den Ausdruck ActiveCell durch einen Range-Ausdruck, beispielsweise ActiveWorkbook.Sheets("Tabelle1").Range("A1").

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"