Farbe einer Zelle muss bei neuer Sortierung mitwandern

Question

Hallo zusammen,

da habe ich noch ein Problem zum Lösen.
Ich habe eine Fußballtabelle mit den folgenden Inhalten

Zelle A1 Team 1 => Zellenfarbe rot
Zelle A2 Team 2 => Zellenfarbe grau
Zelle A3 Team 3 => Zellenfarbe grün
Zelle A4 Team 4 => Zellenfarbe gelb
Zelle A5 Team 5 => Zellenfarbe blau

Da jedes Team eine Zellfarbe hat, muss bei Platzierungswechsel (neue Sortierung anhand Punkte und Tore) die Farbe des Teams mit dem Team in eine andere Zelle wandern.
z.B.
Team 3 steht dann in Zelle A5 weil es immer verloren hat, u.s.w.

Danke mal wieder im Voraus.

Gruß, Achim

Answer 1

Hallo,

lege die Hintergrundfarbe der Teams mit bedingter Formatierung fest.
Ab Excel 2007 ist das kein Problem, bis Excel 2003 sieh mal hier nach.

Gruß

M.O.

Answer 2

Hi,

ich habe leider noch kein Excel 2007 und VBA-Codes sind für mein EDV-Verständniss einfach zu heftig.
Aber danke für den Tipp.

Answer 3

Hi Achim,

wie "sortierst" du die Tabelle? Wenn du die Teams immer in die Zelle mit ihrer Farbe einträgst und dann die gesamte Tabelle nach der Platzierung sortierst, "wandert" die Zellfarbe doch mit.

Bis später,
Karin

Answer 4

Hi Karin,

die Sortierung geschieht über ein Makro, das auf andere Zellen in denen die Punkte und Tore registriert werden, zugreift. Der Teamname wird nur mitgenommen und die Zellenfärbung bleibt da wo sie war, aber sie soll ja mitwandern :-)

Gruß, Achim

Answer 5

Hi Achim,

da ich deinen Code und deine Arbeitsmappe nicht kenne, kann ich dazu nichts sagen.

Wenn ich eine Tabelle per Code sortiere wird die Farbe mitgenommen und wenn ich Daten von einer Zelle in eine andere Zelle kopiere ebenfalls.

Bis später,
Karin

Answer 6

Hallo Achim,

lade doch einmal eine Beispieltabelle hoch, z.B.
hier und poste dann den entsprechenden Link.

Gruß

M.O.

Answer 7

Hi Karin,

anbei der Link. Den Bereich habe ich rot umrandet.

http://www.file-upload.net/download-4134511/Kopie-von-Turnier-2011_2x6-VHE1-4-1P.xls.html

Gruß, Achim

Answer 8

Hallo Achim,

schau mal, ob das so deinen Vorstellungen entspricht:

Tabelle bearbeitet
Die Farben werden beim Ausführen der Sortiermakros zugeordnet.

Gruß

M.O.

Answer 9

Hi Achim,

Sub GrpA()
Dim lngZeile As Long
Dim rngZelle As Range
Range("BM31:BR35").Sort Key1:=Range("BM31"), Order1:=xlDescending, Key2:=Range( _
"BR31"), Order2:=xlDescending, Key3:=Range("BO31"), Order3:=xlDescending _
, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
For lngZeile = 64 To 69
Set rngZelle = Range("D16:Z21").Find(Cells(lngZeile, 4))
If Not rngZelle Is Nothing Then Cells(lngZeile, 4).Interior.ColorIndex = rngZelle.Interior.ColorIndex
Next lngZeile
Set rngZelle = Nothing
End Sub

Bis später,
Karin