Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Programmierung

VBA Programmierung
Daniel
Hallo zusammen,
hoffe ihr könnt mir bei meinem Problem weiterhelfen.
Ich möchte die Spalten "A - D" mit den Spalten "K - N" vergleichen.
dazu soll jede Zeile aus "A - D" mit jeder Spalte aus "K - N" verglichen werden.
Manuell habe ich es schon mit Formeln hinbekommen allerdings auf ein Minimum beschränkt da wenn ich die Zahlen aus meinem bsp. nehmen würde bräuchte ich "40000 * 4000" = 160000000 Zeilen um die Berechnung manuell durchzuführen.
ich versuche es mal zu erklären:
Die Zeile A3 - D3 soll mit K3 - N3; K4 - N4; K5 - N5 usw. verglichen werden, dazu muss die Reihenfolge aber beachtet werden.
Das heißt wiederum A3 mit K3; B3 mit L3; usw.
als Ergebnis soll dann wie im bsp. ("U1 - AB3") eine min. und eine max. Trefferübersicht dargestellt werden.
Die Spalten "P - S" dienen mir zur Zeit nur als temporärer Zwischenspeicher.
Tabelle1

 ABCDEFGHIJKLMNOPQRSTUVWXYZAAAB
1     4 Treffer3 Treffer2 Treffer1 Treffer      4 Tr.3 Tr.2 Tr.1 Tr. 4 Treffer3 Treffer2 Treffer1 Treffer
2                    maxminmaxminmaxminmaxmin
31234 1000 1234 1110 10112110
4     0100 1235              
5     0000 2346              
6     0010 3457              
71256 0010      0121         
8     0100 Diese Reihe kann bis zu 40000 Zeilen lang werden              
9Hier können bis zu 4000 Zeilen stehen 0010               
10 0001               
11                    
12                    
13                    
14                    
15                    
16                    
17                    

Formeln der Tabelle
ZelleFormel
F3=WENN(ZÄHLENWENN(A3:D3;K3)+ZÄHLENWENN(A3:D3;L3)+ZÄHLENWENN(A3:D3;M3)+ZÄHLENWENN(A3:D3;N3)=4;1;0)
G3=WENN(ZÄHLENWENN(A3:D3;K3)+ZÄHLENWENN(A3:D3;L3)+ZÄHLENWENN(A3:D3;M3)+ZÄHLENWENN(A3:D3;N3)=3;1;0)
H3=WENN(ZÄHLENWENN(A3:D3;K3)+ZÄHLENWENN(A3:D3;L3)+ZÄHLENWENN(A3:D3;M3)+ZÄHLENWENN(A3:D3;N3)=2;1;0)
I3=WENN(ZÄHLENWENN(A3:D3;K3)+ZÄHLENWENN(A3:D3;L3)+ZÄHLENWENN(A3:D3;M3)+ZÄHLENWENN(A3:D3;N3)=1;1;0)
P3=ZÄHLENWENN(F3:F6;1)
Q3=ZÄHLENWENN(G3:G6;1)
R3=ZÄHLENWENN(H3:H6;1)
S3=ZÄHLENWENN(I3:I6;1)
U3=MAX(P3:P10)
V3=MIN(P3:P10)
W3=MAX(Q3:Q10)
X3=MIN(Q3:Q10)
Y3=MAX(R3:R10)
Z3=MIN(R3:R10)
AA3=MAX(S3:S10)
AB3=MIN(S3:S10)
F4=WENN(ZÄHLENWENN(A3:D3;K4)+ZÄHLENWENN(A3:D3;L4)+ZÄHLENWENN(A3:D3;M4)+ZÄHLENWENN(A3:D3;N4)=4;1;0)
G4=WENN(ZÄHLENWENN(A3:D3;K4)+ZÄHLENWENN(A3:D3;L4)+ZÄHLENWENN(A3:D3;M4)+ZÄHLENWENN(A3:D3;N4)=3;1;0)
H4=WENN(ZÄHLENWENN(A3:D3;K4)+ZÄHLENWENN(A3:D3;L4)+ZÄHLENWENN(A3:D3;M4)+ZÄHLENWENN(A3:D3;N4)=2;1;0)
I4=WENN(ZÄHLENWENN(A3:D3;K4)+ZÄHLENWENN(A3:D3;L4)+ZÄHLENWENN(A3:D3;M4)+ZÄHLENWENN(A3:D3;N4)=1;1;0)
F5=WENN(ZÄHLENWENN(A3:D3;K5)+ZÄHLENWENN(A3:D3;L5)+ZÄHLENWENN(A3:D3;M5)+ZÄHLENWENN(A3:D3;N5)=4;1;0)
G5=WENN(ZÄHLENWENN(A4:D4;K5)+ZÄHLENWENN(A4:D4;L5)+ZÄHLENWENN(A4:D4;M5)+ZÄHLENWENN(A4:D4;N5)=3;1;0)
H5=WENN(ZÄHLENWENN(A4:D4;K5)+ZÄHLENWENN(A4:D4;L5)+ZÄHLENWENN(A4:D4;M5)+ZÄHLENWENN(A4:D4;N5)=2;1;0)
I5=WENN(ZÄHLENWENN(A4:D4;K5)+ZÄHLENWENN(A4:D4;L5)+ZÄHLENWENN(A4:D4;M5)+ZÄHLENWENN(A4:D4;N5)=1;1;0)
F6=WENN(ZÄHLENWENN(A5:D5;K6)+ZÄHLENWENN(A5:D5;L6)+ZÄHLENWENN(A5:D5;M6)+ZÄHLENWENN(A5:D5;N6)=4;1;0)
G6=WENN(ZÄHLENWENN(A3:D3;K6)+ZÄHLENWENN(A3:D3;L6)+ZÄHLENWENN(A3:D3;M6)+ZÄHLENWENN(A3:D3;N6)=3;1;0)
H6=WENN(ZÄHLENWENN(A3:D3;K6)+ZÄHLENWENN(A3:D3;L6)+ZÄHLENWENN(A3:D3;M6)+ZÄHLENWENN(A3:D3;N6)=2;1;0)
I6=WENN(ZÄHLENWENN(A3:D3;K6)+ZÄHLENWENN(A3:D3;L6)+ZÄHLENWENN(A3:D3;M6)+ZÄHLENWENN(A3:D3;N6)=1;1;0)
F7=WENN(ZÄHLENWENN(A7:D7;K3)+ZÄHLENWENN(A7:D7;L3)+ZÄHLENWENN(A7:D7;M3)+ZÄHLENWENN(A7:D7;N3)=4;1;0)
G7=WENN(ZÄHLENWENN(A7:D7;K3)+ZÄHLENWENN(A7:D7;L3)+ZÄHLENWENN(A7:D7;M3)+ZÄHLENWENN(A7:D7;N3)=3;1;0)
H7=WENN(ZÄHLENWENN(A7:D7;K3)+ZÄHLENWENN(A7:D7;L3)+ZÄHLENWENN(A7:D7;M3)+ZÄHLENWENN(A7:D7;N3)=2;1;0)
I7=WENN(ZÄHLENWENN(A7:D7;K3)+ZÄHLENWENN(A7:D7;L3)+ZÄHLENWENN(A7:D7;M3)+ZÄHLENWENN(A7:D7;N3)=1;1;0)
P7=ZÄHLENWENN(F7:F10;1)
Q7=ZÄHLENWENN(G7:G10;1)
R7=ZÄHLENWENN(H7:H10;1)
S7=ZÄHLENWENN(I7:I10;1)
F8=WENN(ZÄHLENWENN(A7:D7;K4)+ZÄHLENWENN(A7:D7;L4)+ZÄHLENWENN(A7:D7;M4)+ZÄHLENWENN(A7:D7;N4)=4;1;0)
G8=WENN(ZÄHLENWENN(A7:D7;K4)+ZÄHLENWENN(A7:D7;L4)+ZÄHLENWENN(A7:D7;M4)+ZÄHLENWENN(A7:D7;N4)=3;1;0)
H8=WENN(ZÄHLENWENN(A7:D7;K4)+ZÄHLENWENN(A7:D7;L4)+ZÄHLENWENN(A7:D7;M4)+ZÄHLENWENN(A7:D7;N4)=2;1;0)
I8=WENN(ZÄHLENWENN(A7:D7;K4)+ZÄHLENWENN(A7:D7;L4)+ZÄHLENWENN(A7:D7;M4)+ZÄHLENWENN(A7:D7;N4)=1;1;0)
F9=WENN(ZÄHLENWENN(A7:D7;K5)+ZÄHLENWENN(A7:D7;L5)+ZÄHLENWENN(A7:D7;M5)+ZÄHLENWENN(A7:D7;N5)=4;1;0)
G9=WENN(ZÄHLENWENN(A7:D7;K5)+ZÄHLENWENN(A7:D7;L5)+ZÄHLENWENN(A7:D7;M5)+ZÄHLENWENN(A7:D7;N5)=3;1;0)
H9=WENN(ZÄHLENWENN(A7:D7;K5)+ZÄHLENWENN(A7:D7;L5)+ZÄHLENWENN(A7:D7;M5)+ZÄHLENWENN(A7:D7;N5)=2;1;0)
I9=WENN(ZÄHLENWENN(A7:D7;K5)+ZÄHLENWENN(A7:D7;L5)+ZÄHLENWENN(A7:D7;M5)+ZÄHLENWENN(A7:D7;N5)=1;1;0)
F10=WENN(ZÄHLENWENN(A7:D7;K6)+ZÄHLENWENN(A7:D7;L6)+ZÄHLENWENN(A7:D7;M6)+ZÄHLENWENN(A7:D7;N6)=4;1;0)
G10=WENN(ZÄHLENWENN(A7:D7;K6)+ZÄHLENWENN(A7:D7;L6)+ZÄHLENWENN(A7:D7;M6)+ZÄHLENWENN(A7:D7;N6)=3;1;0)
H10=WENN(ZÄHLENWENN(A7:D7;K6)+ZÄHLENWENN(A7:D7;L6)+ZÄHLENWENN(A7:D7;M6)+ZÄHLENWENN(A7:D7;N6)=2;1;0)
I10=WENN(ZÄHLENWENN(A7:D7;K6)+ZÄHLENWENN(A7:D7;L6)+ZÄHLENWENN(A7:D7;M6)+ZÄHLENWENN(A7:D7;N6)=1;1;0)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Programmierung
08.05.2012 10:06:20
Dirk
Hallo!
Lade erst mal eine Beispieltabelle mit Werten in den entsprechenden Spalten hoch. Da macht sich Das dann schon viel einfacher.
Gruss
Dirk aus Dubai
AW: VBA Programmierung
08.05.2012 15:20:51
Daniel
Vielen Dank Dirk,
habe leider noch paar Fehler in den Formeln gefunden und bin dabei die Formeln zu berichtigen.
sobald ich damit fertig bin werde ich die abelle hochladen.
Gruß
Daniel
AW: VBA Programmierung
08.05.2012 15:52:17
Daniel
Vielen Dank Dirk,
habe leider noch paar Fehler in den Formeln gefunden und bin dabei die Formeln zu berichtigen.
sobald ich damit fertig bin werde ich die abelle hochladen.
Gruß
Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige