Ursprüngliche Zahlen finden?

[Angelina]

hallo atilla
hallo schauan

ja ... so kann man es als Profi beschreiben.

Ich habe halt durch die Videos versucht es besser zu erklären.
Das ging dann in die Hose!

Habe alle 3 Arbeitsversionen nun mit mehr Daten laufen lassen ...
und überall kommt das gleiche raus.
Version Schauan, Version atilla und End-Version-atilla von gestern.

Ich würde dann sagen - so kann es bleiben!

Ich habe eben versucht in der End-Version-atilla
in der Spalte N
dort wo die Zahlen angezeigt werden über
Zählewenn einen Vergleich als Bedingte Formatierung einzufügen.
Hat leider nicht funktioniert. Vielleicht weil alle Zahlen in einer Zelle stehen.

Was wollte ich genau machen?
Zu jeder D:I Zeile werden die Zahlen in N angezeigt.
Nun wollte ich optisch die Zahlen hervorheben die genau in der dazugehörigen D:I Zeile übereinstimmen.

Aber das geht anscheinend nicht, wenn alle Zahlen in einer Zeile in N stehen :20:

LG
Angelina

[atilla]

Hallo Angelina,


Zeig doch bitte an einem Beispiel,was wo wie gefärbt werden soll.

Zu den Codes noch einmal, sie unterscheiden sich im Tempo wesentlich.
Der zuletz von mir eingestellte ist der schnellste, wobei da auch noch etwas Luft nach oben ist.

Wenn ich das richtig beobachtet habe, dann braucht die Suche ab dem zweiten Dreier nicht in Zeile 1 von D:I anfangen. Es reicht ab der Zeile des ersten Fundes vom vorangegangen Dreier zu beginnen. Aber dafür müsste noch einiges an Code hinzukommen.

[Angelina]

hallo atilla,

Aber dafür müsste noch einiges an Code hinzukommen.

Nein ... wir lassen es so wie es nun ist.
Ich möchte nicht das ihr/du noch mehr Arbeit/Zeit/Mühe in diese Aufgabe investiert.

Zeig doch bitte an einem Beispiel,was wo wie gefärbt werden soll.

siehe Bild hierzu

Spalte N

Spalte N (bei mir dunkelgrün) sollen die identischen zu Zeile D:I rot hinterlegt werden.

PS: Bin nun für 2-3 Stunden unterwegs!

LG
Angelina

[snb]

Wenn Geschwindigkeit wichtig ist:

Code:

Sub M_snb()
    sn = Tabelle1.Cells(1).CurrentRegion.Columns(15).Resize(, 12)
    sq = Tabelle1.Cells(1).CurrentRegion.Columns(41)
    Z = Tabelle1.Cells(1, 39)
    
    For Each it In Tabelle1.Cells(1).CurrentRegion.Columns(4).Resize(, 6).Cells
       If it.Row <> x Then
         If y < -2 Then c00 = c00 & " " & x
         y = 0
         x = it.Row
       End If
       y = y + (it.Interior.ColorIndex <> xlNone)
    Next
    
    sp = Split(Trim(c00))
    For j = 0 To UBound(sp)
       c00 = ""
       For jj = sp(j) - Z - 1 To sp(j) - 1
          For jjj = 1 To UBound(sn, 2)
              If sn(jj, jjj) <> "" And InStr(c00 & " ", " " & sn(jj, jjj) & " ") = 0 Then c00 = c00 & " " & sn(jj, jjj)
          Next
       Next
       sq(sp(j), 1) = UBound(Split(c00))
    Next
    
    Tabelle1.Cells(1).CurrentRegion.Columns(41) = sq
End Sub

[snb]

@Attilla,

Kannst du sagen welche Zahlen du zählst in Zeile 23 und evt. warum ?

Mein Ergebnis ist 10, Schauan's Ergbenis ist 14.

[atilla]

Hallo, snb,

und was bekomme ich für Ergebnisse raus???

Das erfährst Du wenn Du den Code aus Beitrag #70, wie dort beschrieben ausführst.
Das sind die gleichen Ergebnisse, wie schauan.

Im gleichen Beitrag habe ich auch versucht zu erklären, wie was gezählt wird.

[atilla]

Hallo Angelina,

bitte nimm die Beispieldatei, die uns auch zur Verfügung steht und zeig da, was eingefärbt werden soll.

Hast Du Spalte N manuell weiter ausgefüllt???

[snb]

Hallo, snb,

und was bekomme ich für Ergebnisse raus???

Das erfährst Du wenn Du den Code aus Beitrag #70, wie dort beschrieben ausführst.
Das sind die gleichen Ergebnisse, wie schauan.

Im gleichen Beitrag habe ich auch versucht zu erklären, wie was gezählt wird.

Pfffff,

Ich habe die Erklärung gelesen.
Aber dennoch bleibt die Frage im Beispiel Zeille 23 welche Zahlen gezählt werden.

[atilla]

Hallo snb,

Pfffff,

dann musst Du Dich durch alle Beiträge durcharbeiten, was anderes habe ich auch nicht zur Verfügung! :@

Oder Du siehst Dir meinen Code aus Beitrag #70 an, dann wird auch deutlich, was gezählt wird.
Der ist für Dich bestimmt verständlicher als die Erklärungen.

[Angelina]

Hallo Angelina,

bitte nimm die Beispieldatei, die uns auch zur Verfügung steht und zeig da, was eingefärbt werden soll.

Hast Du Spalte N manuell weiter ausgefüllt???

hallo
nein - du hast mir doch den VBCode so erweitert, das ich in der Spalte N
nun die genauen Zahlen sehen kann, welche durch die Anzahl in Spalte AN
ausgegeben werden.

Beispiel:
D1:I1 hätte die Zahlen
1,2,3,4,5,6

Die dazugehörige
N1 hätte die Zahlen
10,12,1,3,14,29

Übereinstimmung in N1
1,3

Diese 1,3 soll rot werden - mehr nicht.

Da in den Beispieldateien diese Ausgabe in der Spalte N noch nicht war
kann ich diese auch nicht, wie von dir gewünscht, verwenden.

LG
Angelina