Tabelle mit gleichen Werten farblich formatieren!



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Tabelle mit gleichen Werten farblich formatieren!
von: Bobby
Geschrieben am: 05.06.2002 - 18:36:40

Hallo zusammen,
habe folgendes Problem:
Möchte eine Tabelle mittels einer VBA-Prozedur zweifarbig abgrenzen(Grau/Weiss), sodass gleiche Inhalte in Spalte "A", die immer untereinander stehen über die gesamte Zeile farbig von den nächsten anderen Werten abgegrenzen. Die Anzahl der Spalten ist immer gleich und mit Werten gefüllt. Die Anzahl der gleichen Werte in Spalte "A" sowie die Anzahl der Zeilen ändert sich wöchentlich. (Die Tabelle wird aus mehreren Tabellen zusammengeführt)

Beispiel:
Anton 17 21 36 "= weiss"
Anton 20 22 40 "= weiss"
Anita 15 20 40 "= grau"
Anita 15 21 40 "= grau"
Anita 17 21 40 "= grau"
Bobby 25 16 31 "= weiss"
Sonja 25 18 24 "= grau"
Sonja 26 21 17 "= grau"
Sonja 30 30 30 "= grau"

Sorry wegen der komplizierten Erklärung, und im vorraus besten Dank für Euere Antworten!
Bobby




nach oben   nach unten

Re: Tabelle mit gleichen Werten farblich formatieren!
von: WernerB.
Geschrieben am: 05.06.2002 - 19:44:16

Hallo Bobby,

teste doch mal dieses Makro:


Option Explicit
Sub ZeilenFaerben()
Dim As Long, laR As Long
Dim farb As Boolean
    farb = False
    laR = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Cells(1, 1), Cells(laR, 4)).Interior.ColorIndex = xlNone
    For i = 2 To laR
      Select Case farb
        Case False
          If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then farb = True
        Case True
          If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then farb = False
      End Select
      If farb = True Then
        Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = 15
      End If
    Next i
End Sub

Viel Erfolg wünscht
WernerB.
nach oben   nach unten

AN alle EXCEL-CHECKER anderes ähnliches problem
von: Shaka
Geschrieben am: 06.06.2002 - 12:13:10


Hallo WernerB. !!

ich habe da ein ähnliches Problem!!

habe 3 Spalten
in der ersten Spalte steht die KW 1 bis 22 sortiert.
dabei sind die kw öfters je in einer Zeile vorhanden.

in der zweiten spalte steht steht ein "ok" oder "offen" drinne.
in der dritten spalte steht die Ticketnummer zu diesem Problem

jetzt möchte ich, Eine TAbelle erstellen
die mir sagt, wieviele Tickets von Woche 1 ,2 u.s.e
ok bzw. offen sind.

also eine Formel die so z.B. aussehen könnte:
wenn Spalte A=1; dann zähle die Zellen, die in der gleichen
Zeile bei Spalte A eine 1 haben, und in der Spalte B ein "ok" haben.
jetzt könnte ich zwar manuell den Bereich abgrenzen z.B. für die Woche 1 mit : zählenwenn(b1:b6;"ok"), möchte aber das Excel
anhand von einer Abfrage selber den Bereich ermittelt, durch die Bedingung, wenn Spalte A=1 bzw. 2 etc.. ist

also eine Formel die ungefähr so aussehen muss :
Für (A:A)=1,merke dir den Wertebereich durch 2 Variable X,Y und dann setze ein :Zählenwenn(bX:BY;"ok")

hoffe ihr versteht mein Problem, und könnt es lösen !!

shaka grüßt euch alle !!!

Tabellenbeispiel:
A B c
1 ok tik298
1 ok tik982
1 ok tik221
1 offen tik985
1 ok tik164
1 ok tik202
2 ok tik111
2 offen tik983
2 offen tik006
2 ok tik123
3 offen tik432
3 offen tik119
3 ok tik222

usw.


nach oben   nach unten

Re: Tabelle mit gleichen Werten farblich formatieren!
von: Bobby
Geschrieben am: 06.06.2002 - 18:14:17

Hallo WernerB,
Vielen Dank für die schnelle Hilfe.
Das aufgezeigte Makro läuft ganz nach meinen Wünschen.

Bis zum nächsten Problem!

Bobby


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabelle mit gleichen Werten farblich formatieren!"