Tabelleninhalt mit unterschiedlichem Muster nach Nummernwechsel ausfüllen

Question

Hallo,

ich brauch Eure Hilfe.

Ich hab mir eine Tabelle erstellt die automatisch Daten aus einer Datenbank zieht. Es handelt sich dabei um Zeiten für die Herstellung von Artikeln. Die Tabelle geht von Spalte A bis Spalte W und nach jeder Aktualisierung kommen Zeilen dazu.

In Spalte A stehen die Auftragsnummern für die Herstellung der Artikel. So können mehrere gleiche Auftragsnummern untereinander stehen. Mein wunsch wäre es, wenn man das farblich Markieren (2-farbig, Spalte A bis W) sobald eine neue Auftragsnummer kommt

Beispiel

Aftragsnummer Zeit
123 10 hellbbau
123 15 hellblau
123 10 hellblau
233 20 grau
233 20 grau
233 5 grau
233 35 grau


Hat jemand eine Idee???

Vielen Dank für Eure Mühe!!!

Gruß

Elhamplo

Answer 1

Hallo,

ist m.E. nur vernünftig mit VBA zu lösen

Gruß

Helmut

Answer 2

hi all ^^

ein beispiel

gruss nighty

Option Explicit
Sub Suchen()
Dim Azeile As Long, Zaehler1 As Long, Zaehler2 As Long
Dim Farbe As Integer
Azeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ReDim ArrA(Azeile + 1, 1) As Variant
Range("A1:A" & Azeile).Interior.ColorIndex = 0
ArrA() = Range("A1:A" & Azeile + 1)
Farbe = 3
For Zaehler1 = 2 To Azeile
If ArrA(Zaehler1, 1) <> ArrA(Zaehler1 + 1, 1) Then
Range(Cells(Zaehler1, 1), Cells(Zaehler1, 23)).Interior.ColorIndex = Farbe
Farbe = Farbe + 1
If Farbe = 5 Then Farbe = 3
Else
Range(Cells(Zaehler1, 1), Cells(Zaehler1, 23)).Interior.ColorIndex = Farbe
End If
Next Zaehler1
End Sub

Answer 3

hi all ^^

hier sollte als letzte spalte noch w eingetragen sein

statt

Range("A1:A" & Azeile).Interior.ColorIndex = 0

mit W

Range("A1:W" & Azeile).Interior.ColorIndex = 0

gruss nighty

Answer 4

Hallo,

sorry das ich mich erstjetzt melde. War im Urlaub und hab das total vergessen.

Super danke. Hat alles gut geklappt.

Gruß

Elhamplo