Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
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
Anzeige
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
Anzeige
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
bedingte Formatierung ändern!
Snewi

Hallo,
ich habe folgenden Syntax:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Range Range("B7:AD81").Interior.ColorIndex = xlNone For Each i In Selection If i.Row > 7 And i.Row Nun möchte ich gerne das wenn eine Zelle markiert wird die Schrift Fett wird ab...
06.02.2012 13:36:01
Thread-ID: 1249493
10 Beiträge
Diagrammgrösse lässt sich nicht ändern.
sapu

Hallo zusammen
ich habe folgendes Problem mit dem file unter:
https://www.herber.de/bbs/user/79251.xlsm
Es gibt jeweils zwei Orginal Sheets, welche ich aus einem Forum habe.
Diese habe ich nach meinen Bedürfnissen abgeändert:
Bei der abgeänderten Version des Diagrammes, sin...
07.03.2012 22:51:49
Thread-ID: 1254027
12 Beiträge
bedingte formatierung ändern und zurück setzen
Mario

Hallo Leute, ich brauch eure Hilfe. Ich habe eine Tabelle wo ich einen Zeitraum eingebe und 65 Zeilen wo jede zweite Zeile farbig gekennzeichnet ist(bedingte formatierung) nun möchte ich die farben per hand wieder ändern. Als zweites möchte ich, wenn ich einen neuen Zeitraum eingebe das ich die...
12.07.2012 17:08:25
Thread-ID: 1270842
6 Beiträge
Standardschriftart lässt sich nicht umstellen
Christian

Hi Leute,
seit ein paar Wochen startet XL2010 unter Win7 mit der Standarschriftart Arial 12. Zuvor hatte ich Arial 10.
Nach Umstellen unter "Optionen - Allgemein - Schriftgrad" kommt die Meldung:
"Sie müssen Microsoft Excel beenden und erneut starten, damit die Veränderungen der Sta...
11.11.2012 12:13:35
Thread-ID: 1286247
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
19
6
4
1
9
11
5
5
3
11
11
14
1
1
2
3
4
2