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
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28 • RausAndr