itvortex
Jul 08, 2015, updated at Jul 09, 2015 (UTC)
view1974
view10
0
Goto Top

Excel 2010 - Farbe bei Änderung von Nummer

GermansolvedQuestionMicrosoft OfficeMicrosoft
Hallo Admins,

ich habe eine Frage bezüglich Excel Zellen-Formatierung an euch!

Bei uns werden aus SAP heraus Listen generiert die in Excel weiterbearbeitet werden, dadurch entsteht eine große Menge an Datensätzen die recht unübersichtlich sind.

Beispielnummer:
123
123
125
125
127
1237
1237

Anhand von den Nummern die ich beispielsweise hier angeführt habe soll sich die Farbe der kompletten Zeile ändern (Schriftfarbe) damit man die einzelnen Datensätze besser zuordnen kann.

Sprich:

Alle Datensätze mit 123 - Farbe grün
Alle Datensätze mit 125 - Farbe rot
Alle Datensätze mit 127 - Farbe grün
Alle Datensätze mit 1237 - Farbe rot

Also jedes Mal wenn sich die Nummer ändert soll grün und rot abwechselnd formatiert werden (die ganze Zelle!).

Hat das schon einmal jemand gemacht bzw. kennt sich damit wer aus?
Hab mich leider nicht so wirklich mit Excel beschäftigt, das muss ich wohl nachholen face-smile

Danke und schöne Grüße
ITvortex
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 276761

Url: https://administrator.de/contentid/276761

Printed on: April 27, 2024 at 03:04 o'clock

10 Comments
Latest comment
Goto Top
Member: Pjordorf
Pjordorf Jul 08, 2015 at 14:55:32 (UTC)
Goto Top
Hallo,

Zitat von @ITvortex:
Alle Datensätze mit 123 - Farbe grün
Alle Datensätze mit 125 - Farbe rot
Alle Datensätze mit 127 - Farbe grün
Alle Datensätze mit 1237 - Farbe rot
Nennt sich "Bedingte Formatierung". Nutze deine F1 Taste in Excel mal....

Gruß,
Peter
Mitglied: 114757
114757 Jul 08, 2015 updated at 14:58:57 (UTC)
Goto Top
Guckst du hier zur Bedingten Formatierung
Excel 2013 ganze Zeile formatieren, wenn bestimmter Wert in Spalte
VBA Code für eine Roadmap
Excel - Bedingte Formatierung bezogen auf Spalte nebendran.

Gruß jodel32
Member: SarekHL
SarekHL Jul 08, 2015 at 14:59:50 (UTC)
Goto Top
Zitat von @Pjordorf:

Nennt sich "Bedingte Formatierung". Nutze deine F1 Taste in Excel mal....

Ich glaube, das ist nicht das, was er will. Er sprach von abwechselnd ... so eine Art Tabellierpapier, aber nicht pro Zeile, sondern pro Wertegruppe.
Mitglied: 114757
Solution 114757 Jul 08, 2015, updated at Jul 09, 2015 at 06:43:24 (UTC)
Goto Top
Zitat von @SarekHL:
Ich glaube, das ist nicht das, was er will. Er sprach von abwechselnd ... so eine Art Tabellierpapier, aber nicht pro Zeile,
sondern pro Wertegruppe.
Das geht damit aber auch ...face-wink
http://stackoverflow.com/questions/16492425/excel-conditional-formattin ...
Member: Pjordorf
Pjordorf Jul 08, 2015 updated at 15:32:47 (UTC)
Goto Top
Hallo,

Zitat von @SarekHL:

so eine Art Tabellierpapier, aber nicht pro Zeile, sondern pro Wertegruppe.
Nennt sich, sofern ich es noch weiß, Bedingte Formatierung face-smile oder hast du dazu andere Funktionen in dein Excel? VBA geht natürlich auch....

Gruß,
Peter
Member: colinardo
Solution colinardo Jul 08, 2015, updated at Jul 09, 2015 at 06:43:21 (UTC)
Goto Top
Als Ergänzung zur bedingten Formatierung hier noch die VBA-Lösung, die sich schnell auf einen Ribbon-Button legen lässt und somit immer zur Verfügung steht.:
(In Beispiel stehen in Spalte A die Zahlen)
Sub ColorGroups()
    Dim cell As Range, colCurrent As Long, arrColors As Variant
    'Abwechselnde Farben festlegen  
    arrColors = Array(vbRed, vbGreen)
    colCurrent = arrColors(0)
    With ActiveSheet
        .UsedRange.ClearFormats
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            If cell.Row > 1 Then
                If cell.Value <> cell.Offset(-1, 0).Value Then
                    colCurrent = IIf(colCurrent = arrColors(0), arrColors(1), arrColors(0))
                End If
            End If
            cell.EntireRow.Interior.Color = colCurrent
        Next
    End With
End Sub
Grüße Uwe
Member: ITvortex
ITvortex Jul 09, 2015 updated at 07:00:05 (UTC)
Goto Top
Guten Morgen!

Vielen Dank, hat perfekt funktioniert face-smile

Liebe Grüße
ITvortex

PS: Hab Uwe's Code verwendet, einfach und schnell face-smile
Werde wohl auch mal Excel und VBA etwas genauer unter die Luppe nehmen.
Member: ITvortex
ITvortex Jul 09, 2015 at 08:48:07 (UTC)
Goto Top
@colinardo

Uwe, wie kann ich die Schriftfarbe anstatt der Hintergrund Farbe ändern?

Liebe Grüße
Martin
Member: colinardo
Solution colinardo Jul 09, 2015 updated at 09:03:19 (UTC)
Goto Top
Zitat von @ITvortex:
Uwe, wie kann ich die Schriftfarbe anstatt der Hintergrund Farbe ändern?
Hallo Martin,
indem du anstatt Interior.Color das hier benutzt: Font.Color
cell.EntireRow.Font.Color = colCurrent
Grüße Uwe
Member: ITvortex
ITvortex Jul 09, 2015 at 09:03:37 (UTC)
Goto Top
Zitat von @colinardo:

> Zitat von @ITvortex:
> Uwe, wie kann ich die Schriftfarbe anstatt der Hintergrund Farbe ändern?
Hallo Martin,
indem du anstatt Interior.Color das hier benutzt: Font.Color
> cell.EntireRow.Font.Color = colCurrent
>
Grüße Uwe

Vielen Dank!
GermansolvedQuestionMicrosoft OfficeMicrosoft