Schrift farblich gestalten

mustermann83 · 2014-08-01T22:54:20+00:00

Guten Abend, anbei eine Excel-Datei. Diese habe ich entwickelt um offene Posten nach Fälligkeit auszuwerten. Jetzt möchte ich die verschiedenen Kunden farblich nach Fälligkeit gestalten. aktuell bleibt schwarz größer 7 Tage Schrift soll grün werden größer 14 Tage Schrift soll blau werden größer 21 Tage Schrift soll orange werden größer 28 Tage Schrift soll rot und fett werden ich benötige hierfür ein Makro. Leider habe ich davon gar keine Ahnung. Kann mir jemand weiter helfen? Vielen Dank https://www.herber.de/bbs/user/91836.xls

…anschaulicher zu machen,
habe ich das mal anhand deiner Datei umgesetzt. Dazu war es erforderlich, eine Legende anzulegen (sollte bei derartigen Aktionen ohnehin nicht fehlen!), wobei ich deine Vorgabe benutzt, die Texte aber auf benutzerdefinierte Formatierung umgestellt habe, so dass hier eigentlich nur die Datumsdifferenzen als Zahlenwerte stehen. Das macht die Handhabung durch das Pgm einfacher. Außerdem habe ich diesen, sowie die formatierungsrelvanten Bereich(e) mit Namen (blattbezogen!) versehen, damit evtl zukünftige Änderungen an ihnen (dann die Namensbezüge aber sicherheitshalber auf Richtigkeit kontrollieren!) keine PgmÄnderungen zur Folge haben müssen. Desweiteren habe ich 2 zusätzliche Bedingungen der schon vorhandenen vorangestellt, die bei Fälligkeitsdaten vor Heute ansprechen. Um die Verschiedenfarbigkeit in Abhängigkeit von der Größe der Differenz zu erreichen, dienen die Festlegungen der Legende quasi als Unterbedingungen dieser beiden, die unbedingt die beiden ersten sein müssen.
Eine weitere Maßnahme ist dem Umstand geschuldet, dass ich zZ keine ältere XlVersion zV habe und deshalb mit Xl12 (2007) testen musste, was auch heißt, dass das in dieser Form auch mit den neueren XlVersionen fktioniert. Das wäre dann aber nicht unbedingt zu empfehlen, weil es einen Mehraufwand bei Erstanlegung der BedingtFormatierung bedeutet. Ich musste nämlich die Einzelzeilen des Formatierungsbereichs über absolute Adressierung bedingungsvereinzeln. Das musst du aber bei deiner Version nicht machen, sondern kannst die entsprd Adressen (teil-)relativ für den jeweiligen GesamtBereich angeben. Das Pgm vereinzelt diese dann je nach erfüllter Unterbedingung selbstständig (unter Xl12 würde das in einer FormatierungsKatastrophe enden!).
Die beiden Ereignisprozeduren dienen Folgendem:
_Calculate ruft das BedingtFormatierungsFarbänderungsPgm nach jeder ausgelösten Berechnung auf, da davon ausgegangen wdn muss, dass sich dadurch ggf auch Änderungen in der FälligkeitsDifferenz ergeben haben könnten.
_Change bezieht sich nur auf Änderungen der Legende. In diesem Fall wird ebenfalls das o.g. Pgm aufgerufen. Dabei ist allerdings zu beachten, dass reine FormatÄnderungen (direkt, nicht durch Einkopieren!) dieses Ereignis nicht auslösen (auch kein anderes!). Deshalb muss in diesem Fall kurz in eine der betroffenen Zellen geklickt (und Edit wieder beendet!) wdn. Auf diese Weise kann man also auch andere als die von mir voreingestellten Farben verwenden.
Na, dann viel Erfolg mit der Datei, die du hier findest.
Gruß, Luc :-?

…bitte austauschen!

Rem Passt BedFormatTextFarbe/Fett an UntBedingg lt Legende an
'   Anwendg d.Dynamized Conditional Formatting f.Vss vor Xl12
Private Sub ActCForm()
Const naCFArea$ = "BedFormBereich", naCFAreaDat$ = "BedFormFallBereich"
Dim FallSp As Long, ic As Long, ix As Long, relFWo As Variant, _
cfr As Range, relCFBer As Range, relCFLeg As Range
On Error Resume Next
Application.EnableEvents = False
Set relCFBer = Me.Range(naCFArea): Set relCFLeg = Me.Range(naCFLegd)
FallSp = Me.Range(naCFAreaDat).Column - relCFBer.Cells(1).Column + 1
relFWo = WorksheetFunction.Transpose(relCFLeg)
For Each cfr In relCFBer.Rows
If cfr.FormatConditions.Count >= 2 Then
ix = 0: ix = WorksheetFunction.Match(Int(Now) - Int(cfr.Cells(FallSp)), relFWo)
If CBool(ix) Then
For ic = 1 To 2
With cfr.FormatConditions(ic)
.Font.Color = relCFLeg.Cells(ix).Font.Color
.Font.Bold = relCFLeg.Cells(ix).Font.Bold
End With
Next ic
End If
End If
Next cfr
Set relCFBer = Nothing: Set relCFLeg = Nothing
Application.EnableEvents = True
End Sub

Luc :-?

Forumthread: Schrift farblich gestalten

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Schrift farblich gestalten

Forumthread: Schrift farblich gestalten

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread