Code erweitern,... Schrift-Größe in Zelle verändern

[snb]

Ich sehe kein Mehrwert für Font größe

[Kuwer]

Hallo Andreas,

Code:

Private Sub Worksheet_Calculate()
  ActiveSheet.Unprotect
  If Not IsError(Range("C1")) Then
    With Range("C1").Font
      Select Case Range("A1").Value
        Case "A", "a", 1
          .Size = 26
        Case "T", "t", 2
          .Size = 26
        Case "I", "i", 3
          .Size = 22
        Case Else
          .Size = 16
      End Select
    End With
  End If
  With Range("Z8").Font
    If Range("Nummer").Value = "" Then
      .Name = "Wingdings"
      .Size = 14
    Else
      .Name = "Calibri"
      .Size = 10
    End If
  End With
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Die nächste Erweiterung schaffst Du dann selber.

Gruß, Uwe

[RausAndr]

Perfekt, sehr cool,

ja das wäre sehr schön, wenn ich es das nächste mal schaffen würde.
Aber da bin ich leider meilenweit davon entfernt...

Danke Nochmals!