Bedingte formatierung von Textfeld in VBA für 4 Farben

[lukyluke68]

Hallo,

die bed. Formatierung für ein Textfeld geht ja nur für 3 Farben. Gibt es in VBA die Möglichkeit das betreffende Textfeld für mehrere Farben zu schreiben. Wenn ja würde ich mich freuen wenn ihr mir dabei helfen würdet.

Im Textfeld können vier Texte stehen.
- In Arbeit (gefärbt in grün)
- Gesperrt (gefärbt in rot)
- Messen (gefärbt in gelb)
- MFU (gefärbt in blau)


mfg Ludwig

[bahasu]

Hi,

siehe z.B. den ersten Link zu alten Beiträgen unter Deinem Beitrag => Nein, geht nicht

Harald

[lukyluke68]

Hallo,

ja ich weis. Für drei Farben funktioniert es wunderbar.

Ich bräuchte aber noch eine vierte Farbe dazu.

Müsste doch gehen in Excell gehts ja auch..

Aus einer Excel Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B8:X39")) Is Nothing Then
    Exit Sub
    Else
        If Target.Value = "Urlaub" Then
            Target.Interior.ColorIndex = 3
            End
        End If
        If Target.Value = "Freischicht" Then
            Target.Interior.ColorIndex = 8
            End
        End If
        If Target.Value = "Schulung" Then
            Target.Interior.ColorIndex = 4
            End
        End If
        If Target.Value = "Krank" Then
            Target.Interior.ColorIndex = 16
            End
        End If
        With Selection.Interior
        .ColorIndex = xlColorIndexNone
        End With
    End If
       
End Sub

[MzKlMu]

Hallo,
Du kannst Excel nicht mit Access vergleichen. In Excel kannst Du einzelne Zellen ansprechen, in Access wird immer die komplette Spalte angesprochen.  Den  Excel Code auf Access umgeschrieben würde immer die komplette Spalte färben.
Auch mit VBA musst Du zum Färben die VBA Befehle der bedingten Formatierung verwenden, sodass Du auch mit VBA auf 3 Farben beschränkt bist.

Welche Access Version verwendest Du?
Ab Access2007 hat die bedingte Formatierung mehr Möglichkeiten, 50 wenn ich recht weis.

Übrigens mit einem Bericht kannst Du mehr Farben realisieren, sogar ohne die bedingte Formatierung.

[bahasu]

Hi,

wenn Du Dich vom Begriff "Bedingte Formatierung" löst, ist auch in access eine nahzu beliebige Vielfalt an Farben möglich, sofern Du die Daten in der Formularsicht (also keine Tabelle, kein Endlosform) anzeigst.

Das geht dann ähnlich wie in Excel und Ausnutzung der .backcolor-Eigenschaft.

Die oben angezeigt If-Konstruktion lässt sich übrigens eleganter darstellen:
Select case Target.Value          ' warum muss hier eigentlich.value stehen???
   case "Urlaub"
      ...
   case "Freischicht"
     ...
end select

Harald

[DF6GL]

Hallo,

Im Textfeld können vier Texte stehen.
- In Arbeit (gefärbt in grün)
- Gesperrt (gefärbt in rot)
- Messen (gefärbt in gelb)
- MFU (gefärbt in blau)

4 verschiedene Zustände sind mit der Bedingten Formatierung doch realisierbar, wenn der erste Zustand z. B. die Grundformatierung des Textfeldes darstellt....

[lukyluke68]

Hallo,

die Standardformatierung muss neutral bleiben, da ich noch Texte wie "Offen" und "Nacharbeit" habe. Hier soll das Feld weiß bleiben.

mfg Ludwig

[MzKlMu]

Hallo,
und soll das jetzt in einem normalen Formular oder in einem Endlosformular passieren, denn mit einem normalen Formular kannst Du mehrere Farben realisieren.

[lukyluke68]

Hallo,

ich habe ein Geteiltes Formular. Mit den drei Farben läuft ja alles wunderbar

[MzKlMu]

Hallo,
wenn Du ein geteiltes Formular hast, ist das doch eine neuere Access Version.
Meine Frage von weiter oben nach der Version hast Du nicht beantwortet.

Welche Access Version verwendest Du?

[lukyluke68]

Oh Entschuldigung,

ich benutze Access 2007

[MzKlMu]

Hallo,
aber dann hast Du doch mehr als 3 Möglichkeiten.

[lukyluke68]

Hallo,

dann bin ich anscheinend völlig blind. In der bed. Formatierung gibt es doch nur 1 Standardformatierung und zum hinzufügen noch drei weitere Möglichkeiten. Oder gibt es noch was anderes, dass ich noch nicht gefunden habe?

Bitte klärt mich auf.

MfG Ludwig

[bahasu]

Hi,

zum Thema Anzahl bedingter Formatierungen noch mal der Hinweis auf den ersten Beitrag bei den unten aufgeführten früheren Beiträgen:
http://www.access-o-mania.de/forum/index.php?topic=14746.0
und dort die Antwort 3

Harald