Spaltenvergleich Kriterium

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Spaltenvergleich Kriterium
von: Thorsten
Geschrieben am: 27.11.2003 11:14:21

Hi,
ich habe folgendes Probelm:
Ich habe mir ein Makro erstellt, dass folgende Aufgabe lösen soll:

Das Makro soll jeweils die Spalten F meines Tabellenblattes 1 und 2 vergleichen und die bei übereinstimmung die entsprechende Zeile aus Tabellensblatt 1 kopieren und in Tabellenblatt 3 einfügen.
Bdingung ist dabei, dass dann in in der Spalte L des Tabellenblattes 1 nicht der Wert aus Spalte L des Tabellenblsattes 2 steht.
Wäre echt super, wenn mir da jemand helfen kann, denn das makro´, das ich mir ausgedacht haeb, funktioniert leider nicht.
Anbei findet ihr meinen Versuch für das Makro



Private Sub CommandButton1_Click()

Sheets(2).Select
intLastRow1 = Worksheets(1).Cells(Rows.Count, 6).End(xlUp).Row
intlastRow2 = Worksheets(2).Cells(Rows.Count, 6).End(xlUp).Row
intlastRow3 = Worksheets(1).Cells(Rows.Count, 11).End(xlUp).Row

NichtWert = Worksheets(2).Cells(1, 11).Value
u = Worksheets(3).Cells(65536, 1).End(xlUp).Row + 1

For I = 1 To intLastRow1
For j = 1 To intlastRow2
For T = 1 To intlastRow3

If Cells(I, 6).Value = Worksheets(2).Cells(j, 6).Value _
And Worksheets(2).Cells(T, 11).Value <> NichtWert Then

Worksheets(1).Rows(I).Copy Destination:=Worksheets(3).Rows(u)

End If

Next
Next
Next
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


MFG T.
Bild


Betrifft: AW: Spaltenvergleich Kriterium
von: FP
Geschrieben am: 27.11.2003 23:53:14

Hallo Thorsten,

Lösung ohne VBA:

Excel Jeanie HTML  
 AB
1Z1Z2
213
332
421
546
665
754
879
988
1097
111010
121113
131212
141311
151416
161515
171614
181719
191818
20917
212020
 
 A
1Z1
21
34
47
59
69
711
813
914
1016
1117
12#ZAHL!
13#ZAHL!
14#ZAHL!
15 
16 
Formeln der Tabelle
A2 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A3 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A4 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A5 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A6 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A7 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A8 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A9 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A10 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A11 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A12 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A13 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
A14 : {=KGRÖSSTE(WENN((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50);(Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50)*Tabelle1!A$2:A$50);SUMME((Tabelle1!A$2:A$50=Tabelle2!A$2:A$50)*(Tabelle1!B$2:B$50<>Tabelle2!B$2:B$50))-ZEILE()+2)}
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download   Servus aus dem Salzkammergut Franz

Bild


Betrifft: Danke O.T.
von: Thorsten
Geschrieben am: 28.11.2003 08:34:14

.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Spaltenvergleich Kriterium"