Spaltenvergleich Kriterium
27.11.2003 11:14:21
Thorsten
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.