VBA: wenn A in Arial, dann B in Wingdings

[Obermumpf]

Du musst schon ein wenig erläutern.

Welche Zellen sind betroffen?
Wo kommen die Werte her (z. B. Eingabe, Ergebnis einer Formel, ...)?
Was kann in den Zellen außer den genannten Werten noch drin stehen?
Kann immer nur ein Wert in der Zelle stehen oder auch mehrere?

Betroffen sind die Zellen: B20:D40
Die Werte kommen aus einer anderen Tabelle = (Tabelle1),A1:B20
Aus dieser kommen die Zahlen 1-6, oder A,B,C

[Der Steuerfuzzi]

Also kommen die Werte über eine Formel. Dann müsste man die Zellen "überwachen", aus denen die Werte kommen.

Eine Beispieldatei wäre ganz hilfreich, sonst wird das Ganze eine reine Raterei.

[schauan]

Hallöchen,

oder in etwa so. Code kommt in das Codemodul vom Zieltabellenblatt und wird (nur) bei jeder Berechnung ausgeführt.
Falls vorher was anderes als Calibri in den Zellen ist, müsstest Du das ändern.
Falls da unterschiedliche Schriftarten drin sein können, müsste man den Standard irgendwo und irgendwie speichern.
Falls Du gezielt auf nur auf einzelne Änderungen reagieren willst, müsste man ggf. das Worksheet_Change auf dem Quellblatt nutzen, wie im Thread schon erwähnt.

Code:

Private Sub Worksheet_Calculate()
Dim rngCells As Range
'Schleife ueber alle Zellen des Zielbereichs
For Each rngCells In Range("B20:D40")
    'Wenn Inhalt numerisch, dann Wingdings, sonst Calibri
    If IsNumeric(rngCells.Value) Then rngCells.Font.Name = "Wingdings" Else rngCells.Font.Name = "Calibri"
'Ende Schleife ueber alle Zellen des Zielbereichs
Next
End Sub

[snb]

@Schau,

Code:

Range("B20:D40").Font.Name = "Calibri"
Range("B20:D40").specialcells(2,1).Font.Name = "Wingdings"

[schauan]

@snb,
Jupp, danke für den Tipp