Ursprüngliche Zahlen finden?

[atilla]

Hallo Angelina,

vieleicht verstehe ich jetzt, was Du meinst  

Aber ich habe in der mir vorliegenden Datei im ersten Durchgang andere Ergebnisse.

Arbeitsblatt mit dem Namen 'Tabelle1'
	AQ	AR
1	6	18
2	1	18
3	5	17
4	9	15
5	4	15
6	2	13
7	3	12
8	8	12
9	7	11
10	10	11
11	13	3
12	14	3
13	11	2
14	12	2

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Was soll jetzt passieren wenn die höchsten Vorkommnisse, wie oben 18, doppelt vorkommen?

[Angelina]

hallo

dann nehmen wir die kleinere Zahl ... also von


6   18
1   18

nehmen wir die
1  18


LG
Angelina

[snb]

Ich habe die erste und zweite Schritt integriert;
Für das ganze bracht man nur:

Code:

Sub M_snb()
    sn = [D1:I126]
    sp = [O1:Z126]
    sq = [N1:N126]
    
    For j = 1 To UBound(sn)
       y = 0
       c03 = ""
       c00 = c00 & " " & Join(Application.Index(sn, j))
       c01 = Trim(c01 & " " & Trim(Join(Application.Index(sp, j))))
       c02 = " " & Join(Application.Index(sn, j)) & " "
       
       st = Split(c01)
       For Each it In st
           If InStr(c02, " " & it & " ") Then
               y = y + 1
               c03 = c03 & " " & it
               c01 = Trim(Replace(" " & c01 & " ", " " & it & " ", " "))
            End If
       Next
       If y > 2 Then  sq(j, 1) = UBound(Split(c01 & c03)) + 1 & ": " & c01 & c03
    Next
    
    [N1:N100] = sq
End Sub

Setze die Code ins Codemodul  von Arbeitsblatt "Tabelle1".

[atilla]

Hallo Angelina,

Eine Lösung kann ich nicht versprechen.
Sonst kann es aber auch etwas dauern.

Uups, sehe gerade snb hat ja schon eine Löschung gepostet.

[Angelina]

hallo snb,
hallo atilla,

ich verstehe nicht genau, wie ich es einbinden soll?

 

Setze die Code ins Codemodul  von Arbeitsblatt "Tabelle1".

Über Call aufrufen - oder?

LG
Angelina

[snb]

Hast du je mit VBA gearbeitet ?

[Angelina]

hallo snb,

ich nutze nur excel 2003
und kann nicht wirklich sehen was dort für eine Anzeige im Bereich AS/AT kommen soll.

Verstehe es nicht

LG
Angelina

[snb]

Nun für XL2003

[Angelina]

hallo snb,

danke ... ich bekomme nun eine Anzeige ... Blicke aber nicht durch ... was hier gemacht wird

Ich glaube das bringt nichts - schade ... Die Anzeige in Spalte N - das hilft mir nicht ... sorry


LG
Angelina

[snb]

Vergleich mal mit

http://www.clever-excel-forum.de/Thread-...4#pid37934

Vergleich auch:

- die Menge Code
- die Geschwindigkeit.

Ich fürchte das deine Bedingungen gar nicht deinen VBA Fähigkeiten übereinstimmen.