überholte Stände in Farbe 37 darstellen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Selma
besser als ein Bildschirmprint wäre eine Beispieldatei, damit man auch mal was ausprobieren kann, es ist immer so aufwendig, die Dateien nachzubauen und u.U. sind dann doch ein paar keinigkeiten anders, die dazu führen, daß das Makro bei dir nicht läuft.
dann wäre noch zu klären:
- womit sollen die Zellen der Spalte A-D identisch sein, dh. wo stehen die Vergleichswerte (drüber, drunter, auf einen Server in Timbuku;-)
- gleiche Frage für den Wert in Spalte E, was ist der Vergleichswert?
- bei welchem Vergleichsergebnis soll gefärbt werden und bei welchem nicht?
aber generell bin ich der Meinung, daß sich diese Aufgabe besser per bedingter Formatierung lösen lässt.
Gruß, Daniel

Sub färben() Dim sp As Integer Dim ze As Long Dim check As Boolean Dim Bereich As Range Set Bereich = Range("A93:R112") With Bereich .Sort key1:=.Cells(1, 5), order1:=xlDescending, header:=xlNo For sp = 4 To 1 Step -1 .Sort key1:=.Cells(1, sp), order1:=xlAscending, header:=xlNo Next For ze = 2 To .Rows.Count check = True For sp = 1 To 4 check = check And (.Cells(ze, sp) = .Cells(ze - 1, sp)) Next Select Case check Case False .Cells(ze, 1).Resize(1, 17).Interior.ColorIndex = xlNone Case True Select Case .Cells(ze, 5).Value Case "" .Cells(ze, 1).Resize(1, 17).Font.ColorIndex = 1 Case Else .Cells(ze, 1).Resize(1, 17).Font.ColorIndex = 37 End Select End Select Next End With End Sub


.Sort key1:=.Cells(1, 5), order1:=xlDescending, header:=xlNo
For sp = 4 To 1 Step -1
.Sort key1:=.Cells(1, sp), order1:=xlAscending, header:=xlNo
Next

das sortiert den Code, die Spalte E aufsteigend, damit der grösste Buchstabe oben steht, die restlichen absteigend, damit gleiche alle Zeilen, die in A, B , C und D die gleichen Werte haben, direkt untereinander stehen.
Dann kommt ne schleife, die alle Zeilen des Zellbereichs durchläuft (ohne die Erste Zeile)


check = True
For sp = 1 To 4
check = check And (.Cells(ze, sp) = .Cells(ze - 1, sp))
Next

hier wird geprüft, ob die Zellen A, B C und D von 2 benachbarten Zeilen gleich sind, sobald ein Wert nicht gleich ist, wird check = false
und dann kommt die Logische Prüfung, dh wenn check = false ist, dann handelt es sich um einen neuen Abschnitt und die Zeile muss auf jeden Fall schwarz werden (durch die Sortierung ist gewährleistet, daß es immer den grössten Buchstaben des Abschnitts trifft).
Ist Check = True, dann gehören beide Zeilen zum gleichen Abschnitt, jetzt muss nur noch unterschieden werden, ob die Zelle in Spalte E leer ist, dann wird die Zeile schwarz, oder ob sie einen Wert enthält, dann wird sie hellblau.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

überholte Stände in Farbe 37 darstellen?

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

überholte Stände in Farbe 37 darstellen?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread