Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA **Color change by cell.Value**
 13.11.2019 08:58:39 Mike
Solved
13.11.2019 09:38:40 Gast14951
*****
Solved
13.11.2019 10:34:44 Mike
Solved

Ansicht des Beitrags:
Von:
Mike		 Datum:
13.11.2019 08:58:39		 Views:
805		 Rating:
     
Antwort:
 Nein
Thema:
Excel VBA **Color change by cell.Value**

Hallo liebe VBA Spezialisten,

ich habe ein Excel VBA Macro geschrieben, dass einfach nicht macht, was ich möchte.Eigentlich mach es leider gar nix.

Ich brauche für verschiedene Texte in einer Spalte verschiedene, aber definierte Farben. Wie viele verschieden Texte es am Ende sein werden steht noch nicht fest, es werden aber ganz sich mehr als zehn.

Hier mein Macro als Beispiel für die ersten vier Texte. Wie schon geschrieben sollte auch bei über zehn verschiedene Texten funktionieren.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ColorCHANGEvalue()
 
    Dim cell As Range
 
    For Each cell In Range(Range("A:A"), Range("A:A").End(xlDown))
        If cell.Value = "q" Then
        BackColor = RGB(255, 255, 255)
    ElseIf cell.Value = "w" Then
        BackColor = RGB(255, 0, 0)
    ElseIf cell.Value = "i" Then
        BackColor = RGB(255, 151, 1)
    ElseIf cell.Value = "u" Then
        BackColor = RGB(1, 75, 1)
    End If
    Next
End Sub

 

Vielen Dank im Voraus für eure Mühe.

Gruss
Mike

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA **Color change by cell.Value**
 13.11.2019 08:58:39 Mike
Solved
13.11.2019 09:38:40 Gast14951
*****
Solved
13.11.2019 10:34:44 Mike
Solved