ich möchte die Standard-Schrift eines Tabellenblattes abfragen.
If ActiveWorkbook.Styles("Normal") = "Arial" Then MsgBox "Die Schrift ist ARIAL"
Was ist daran falsch?
Danke für eine Antwort
Markus
MsgBox ThisWorkbook.Styles("Normal").Font.Name
Gruß Sepp
Sub til()
Const Schriftname As String = "Arial"
If ThisWorkbook.Styles("Normal").Font.Name = Schriftname Then
MsgBox Schriftname
Else
MsgBox "Nix " & Schriftname
End If
End Sub
mfg Kurt
Sub a()
Dim styX As Style
Set styX = ActiveWorkbook.Styles("Normal")
MsgBox "Die Formatvorlage heißt" & vbTab & styX.Name _
& vbLf & "Die Schrift ist" & vbTab & vbTab & styX.Font.Name _
& vbLf & "Die Schriftgröße ist" & vbTab & vbTab & styX.Font.Size
If ActiveWorkbook.Styles("Normal").Font.Name = "Arial" Then MsgBox "Die Schrift ist ARIAL"
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort