Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.12.2023 17:31:05
Spalte ausblenden wenn zellen leer sind.
01.12.2023 15:24:19
Bereich definieren und nach mehreren Kriterien Zählen
01.12.2023 15:11:13
Wenn Funktion nicht zutrifft nächste Zeile überprüfen
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung mit Schriftgrößen

Bedingte Formatierung mit Schriftgrößen
19.10.2008 22:22:24
berkeweb
Hallo Zusammen,
gibt es eine Möglichkeit, die Funktion der bedingten Formatierung zu nutzen, um verschiedene Schriftgrößen zu erzeugen?
Meine bedingte Formatierung sieht derzeit wie folgt aus: Formel ist =wenn(E2="A";wahr;falsch). Wenn also in Zelle E2 A steht, dann hätte ich gerne, dass sich die Schriftgröße in Zelle F2 verändert (z.B. von Schriftgröße 10 auf Schriftgröße 14). Dies ist gemäß den Auswahlmöglichkeiten in Excel 2003 (Schriftfarbe, Schriftschnitt, Muster, etc.) so nicht möglich. Gibt es vielleicht eine andere Möglichkeit, um die Schriftgröße in Abhängigkeit einer Bedingung zu verändern?
Ich freue mich auf Eure Ideen und Vorschläge.
Beste Grüße
Axel

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung mit Schriftgrößen
19.10.2008 22:35:52
Hajo_Zi
Hallo Axel,
das hast Du bestimmt schon selber festgestellt das dies in Deiner Version nicht geht. Das geht in allen Versionen nicht.

AW: Bedingte Formatierung mit Schriftgrößen
19.10.2008 22:44:30
berkeweb
Hallo Hajo,
das stimmt. Auf "normalem" Wege geht dies tatsächlich nicht. Allerdings weiß ich nicht, ob es bspw. vielleicht mittels VBA geht. Falls ja, wäre dies klasse.
Danke für Deine Antwort und beste Grüße
Axel
AW: Bedingte Formatierung mit Schriftgrößen
19.10.2008 23:15:00
Tino
Hallo,
mit VBA geht dies so, kommt ins entsprechende Tabellenblatt.
Option Explicit

Private Sub Worksheet_Calculate()

Range("F2").Font.Size = IIf(Range("E2").Value = "A", 14, 10)

End Sub


Gruß Tino

Anzeige
Sicher ist Sicher ;-)
19.10.2008 23:21:03
Tino
Hallo,
sollte mal Deine Formel aus irgendeinem Grund einen Fehler ausspucken, ist es besser diesen abzufangen, sonst läuft der Code auch auf einen Fehler.
Option Explicit

Private Sub Worksheet_Calculate()

If Not IsError(Range("E2")) Then _
Range("F2").Font.Size = IIf(Range("E2").Value = "A", 14, 10)

End Sub


Gruß Tino

Anzeige
AW: Bedingte Formatierung mit Schriftgrößen
21.10.2008 20:07:00
berkeweb
Hallo Tino,
besten Dank für Deine Mühen. Ich habe gerade den Code in das Tabellenblatt kopiert, aber leider passiert nichts. Den kleinen Tippfehler IIf statt If habe ich behoben, aber dennoch bleibt der Code im Editor rot.
Nachfolgend eine Beispieldatei, um zu verdeutlichen, was mein Ziel ist.
https://www.herber.de/bbs/user/56178.xls
Beste Grüße
Axel
AW: Bedingte Formatierung mit Schriftgrößen
21.10.2008 21:17:50
Tino
Hallo,
geht so, muss jetzt auf die Nachtschicht.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C5:C9")) Is Nothing Then Exit Sub
Application.EnableEvents = False

Select Case Target
 Case "hoch" '************** 
  
  With Target.Offset(0, -1).Font
    .Size = 14
    .ColorIndex = 1
    .FontStyle = "Standard"
  End With
 
 Case "normal" '************** 
  
  With Target.Offset(0, -1).Font
    .Size = 12
    .ColorIndex = 1
   .FontStyle = "Kursiv"
  End With
 
 Case "niedrig" '************** 
  
  With Target.Offset(0, -1).Font
    .Size = 10
    .ColorIndex = 15
    .FontStyle = "Standard"
  End With

End Select
Application.EnableEvents = True
End Sub


PS: war kein Tippfehler.
Gruß Tino

Anzeige
AW: Bedingte Formatierung mit Schriftgrößen
22.10.2008 13:38:00
berkeweb
Hallo Tino,
ich habe doch noch eine Frage. Wenn ich in die Tabelle eine weitere Zeile einfüge (z.B. zwischen Einkaufen und Bügeln), dann erhalte ich immer folgende Fehlermeldung:
"Laufzeitfehler 13: Typen unverträglich"
Anschließend funktioniert dann das ganze Skript nicht mehr. Gibt es eine Möglichkeit/Erweiterung, um auch nach dem Einfügen einer neuen Zeile noch weiter mit dem Skript arbeiten zu können?
Hier die datei inklusive Skript:
https://www.herber.de/bbs/user/56194.xls
Beste Grüße
Axel
AW: Bedingte Formatierung mit Schriftgrößen
22.10.2008 15:48:42
Tino
Hallo,
habe den Code etwas angepasst.
https://www.herber.de/bbs/user/56197.xls
Gruß Tino
Anzeige

20 Forumthreads zu ähnlichen Themen

skalierung größenachse lässt sich nicht ändern
schon

Hallo, vielleicht liegt es ja nur am Sekt, den wir zum Weihnachtsbrunch hatten...
Habe ein simples Liniendiagramm mit 2 Zahlenreihen erstellt. Bei einer Reihe gehen die Zahlen gegen Null, daher schmiegt sich die Linie an die Rubrikenachse. Damit es anschaulicher wird, möchte ich die Skalier...
15.12.2009 16:34:42
Thread-ID: 1123765
2 Beiträge
Tabellenblattreiter lässt sich nicht ändern | Herbers Excel-Forum
Josef_T
Guten Tag zusammen,
ich kann in keiner! Tabelle mehr den Tabellenblattreiter bearbeiten. Egal ob ich mit der linken
oder rechten Maustaste darauf klicke, aktiviere ich nur immer das ganze Blatt.
kann mir bitte jemand einen Tipp geben, wie ich meine Tabellenblattreiter wieder editieren...
23.01.2010 20:19:29
Thread-ID: 1132376
6 Beiträge
Makro-Sicherheit lässt sich nicht ändern
NoNet

Hallo VBA-Experten,
ich habe auf meinem PC unter Excel 2003 SP3 seit einiger Zeit das Problem, dass sich Änderungen der Makro-Sicherheit ("Extras - Makros - Sicherheit") nicht mehr dauerhaft ändern lassen.
D.h. : Ich kann zwar die Sicherheitsstufe und auch die Optionen im Register "Vert...
08.03.2010 15:40:14
Thread-ID: 1144340
20 Beiträge
Bedingte Formatierung - Schriftgröße
lillet

Hallo zusammen,
ich möchte mit Hilfe der bedingten Formatierung die Schriftgröße ändern (ist im Excelstandard nicht vorgesehen). Ich finde im Forum Hinweise auf ein Add-in "CFPlus.xls". Leider kann ich es nirgends downloaden. (Hab schon gegoogelt).
Kann mir jemand weiterhelfen?
Gruß...
06.04.2010 13:58:16
Thread-ID: 1150329
7 Beiträge
bedingte Formatierung mehrerer Arb.Blätter ändern
Hacho1

Hallo
hab ein Workbook mit mehreren Arb.Blättern die alle gleich aufgebaut sind
in jedem Arb.Blatt ist eine bedingte Formatierung in den Zellen H14 bis H23 die mir sagt :
wenn Zellwert zwischen =0,95 und =100 dann mach Zelle rot
Nun muss ich den Wert =0,95 aber ändern...
gi...
10.03.2011 14:22:41
Thread-ID: 1205163
5 Beiträge
Bedingte Formatierung Icon Größe ändern
crimi

Hallo Experten,
ich ärger mich gerade mit den hoch-gelobten neuen Funktionalitäten der bedingten Formatierung rum.
In meine Arbeitsmappe habe ich eine bedingte Formatierung mit einer Ampel-Funktion eingebaut. Je nach prozentualer Abweichung wird das gelbe, rote oder grüne Kreis-Icon ang...
21.09.2011 07:03:29
Thread-ID: 1230786
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige