Seiten: 1 2 3 4 5 6 7 8 9 10 11 12 13 14
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?
hallo
dann nehmen wir die kleinere Zahl ... also von
6 18
1 18
nehmen wir die
1 18
LG
Angelina
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".
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.
hallo snb,
hallo atilla,
ich verstehe nicht genau, wie ich es einbinden soll?
Zitat:Setze die Code ins Codemodul von Arbeitsblatt "Tabelle1".
Über Call aufrufen - oder?
LG
Angelina
Hast du je mit VBA gearbeitet ?
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
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
Seiten: 1 2 3 4 5 6 7 8 9 10 11 12 13 14