Spalten vergleichen / neues Problem
11.08.2003 21:24:46
Erich M.
ich habe eine UserForm entwickelt, mit der ich folgendes erreiche:
1. Vergleiche 2 Spalten in 2 Tabellen
2. Kopiere alle Zeilen der zweiten Tabelle in die Tabelle Gefunden, bei denen die Suchkriterien gefunden wurden.
Das nachfolgende Makro bewältigt dies problemlos.
Nun habe ich festgestellt, dass die gleiche Abfrage sinnvoll wäre und alle Zeilen kopiert werden, bei denen die Suchkriterien nicht übereinstimmen.
Meine Versuche diverser Änderungen in dem Bereich
Wort r =
Set zelle = .Find Wort......
usw. waren alle erfolglos. Kann jemand einen Lösungsansatz bieten?.....
Besten Dank, wer sich die Mühe macht und sich mal reindenkt!........
.......und Besten Dank für eine Hilfe!
mfg
Erich
~begin~
Private Sub CommandButton2_Click()
Dim zelle, adre As String
Dim Wort(200), wo(200) As String, ad(200) As String, ziel As Integer
Dim r As Integer, zeil As Integer, t As Integer, rr As Integer
Dim u As Integer, za As Integer
tabe(1) = ComboBox1.Text
tabe(2) = ComboBox3.Text
tabnam(1) = ComboBox9.Text
tabnam(2) = ComboBox10.Text
start1 = ComboBox4.Value
start2 = ComboBox6.Value
za = 2
For r = start1 To Workbooks(tabe(1)).Worksheets(tabnam(1)).Range(ComboBox2.Text & 65536).End(xlUp).Row
Wort(r) = Workbooks(tabe(1)).Worksheets(tabnam(1)).Cells(r, ComboBox2.ListIndex + 1)
ziel = Range(ComboBox5.Text & 65536).End(xlUp).Row
With Workbooks(tabe(2)).Worksheets(tabnam(2)).Range(ComboBox5.Text & start2, ComboBox5.Text & ziel)
Set zelle = .Find(Wort(r))
If Not zelle Is Nothing Then
adre = zelle.Address
rr = rr + 1
ad(rr) = adre
Cells(Range(ad(rr)).Row, Range(ad(rr)).Column).Interior.ColorIndex = 3
' Cells(Range(ad(rr)).Row, ComboBox8.Text) = TextBox1.Text
' Ausgabe der Zeilen für Erich
za = za + 1
For u = 1 To 25
Worksheets("Gefunden").Cells(za, u) = Worksheets(tabnam(2)).Cells(Range(ad(rr)).Row, u)
Next u
' Ende Zeilenausgabe
Do
Set zelle = .FindNext(zelle)
Loop While Not zelle Is Nothing And zelle.Address <> adre
End If
End With
Next r
Unload Me
UserForm1.Hide
End Sub
~end~