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

[RausAndr]

Hallo an die Gemeinschaft

Private Sub Worksheet_Calculate()

If Not IsError(Range("C1")) Then _
Range("C1").Font.Size = IIf(Range("A1").Value = "T", 26, 16)

End Sub


Für den Wert "T" wird die Schriftgröße von 16 auf 26 angepasst, dass passt so weit.

Wenn ich jetzt auch noch zusätzliche Werte "A" und "I" habe, kann dass erweitert/angepasst werden?
Wenn ich die 2 Zeile Kopiere und dann "A" eintrage, dann wird nur "A" ausgeführt.

Bin leider nicht wirklich gut im VBA, könnt ihr mir da ein wenig weiter helfen?

Vielen Dank

Andreas

[Kuwer]

Hallo Andreas,

z.B. mit Select Case:

Code:

Private Sub Worksheet_Calculate()
  If Not IsError(Range("C1")) Then
    With Range("C1").Font
      Select Case Range("A1").Value
        Case "A", "I", "T"
          .Size = 26
        Case Else
          .Size = 16
      End Select
    End With
  End If
End Sub

Gruß, Uwe

[Case]

Moin,  

vielleicht so?  

Code:

If Not IsError(Range("C1")) Then Range("C1").Font.Size = IIf(Range("A1").Value = "T" Or Range("A1").Value = "A" Or Range("A1").Value = "I", 26, 16)

[RausAndr]

Vielen Dank, genau was ich gebraucht hab.

[snb]

Code:

cells(1,3).Font.Size = 16 - 10*(cells(1) = "T")

[RausAndr]

Hallo an Alle!

nachdem das gestern so perfekt funktioniert hat, haben meine Kollegen eine neue Herausforderung für mich. 


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
 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Könnte ich die oben stehende Programmierung erweitern?
Ich hätte jetzt noch eine weitere Zelle die "benutzerdefiniert" aussehen sollte, da es um ein Sonderzeichen(Pfeil) handelt. è

in der Zelle AD8 "Nummer" kann eine Zahl eingetragen werden, ist keine Vorhanden soll in Z8 ein PFEIL als Hinweis erscheinen.
in Zelle Z8 hab ich folgende Formel: =WENN(Nummer="";"è";"KdnNr"&ZEICHEN(10)&"LiefNr")

Nun soll sich die Schriftart auf "Wingdings" Größe 14 anstatt "Calibri" Größe 10 ändern um den Pfeil auch angezeigt zu bekommen.

Herzlichen Dank schon im Voraus für's weiterhelfen.
LG Andreas

[snb]

Wo sind die Code Tags ?

[RausAndr]

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
 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Wusst gar nicht dass, das auch geht....

[snb]

Verwende bedingte Formatierung.

[RausAndr]

Danke, 

Ich würde sehr gerne eine "bedingte Formatierung" nehmen, nur leider ist weder Schriftgröße sowie Schriftart (aus)wählbar.

Vielleicht im O365 inkludiert- aber das hab ich noch nicht in Verwendung!