ich habe folgendes relativ simpel klingendes Problem.
Ich habe zwei Tabellenblätter mit jeweils einer Schlüsselspalte, einer Datenspalte und einer Indikatorspalte mit 0 oder 1.
Nun brauche ich ein Makro, dass beide Tabellenblätter nach identischen Schlüsseln absucht, und sofern der Indikator bei beiden Schlüsseln 1 ist, die Datenspalte der beiden Tabellen zum Auswerten in ein weiteres drittes Tabellenblatt kopiert.
Mein Makro:
Sub Auswerten()
Dim i, k As Long
Dim StrSchlüssel As String
Dim test1, test2 As Integer
k = 0
For i = 8 To 9595
StrSchlüssel = Sheets("Tabelle1").Cells(i, 15)
test1 = Application.VLookup(StrSchlüssel, ActiveWorkbook.Sheets("Tabelle1").Range("O8:P10000"), _
2)
If IsError(test1) Then GoTo Weiter
test2 = Application.VLookup(StrSchlüssel, ActiveWorkbook.Sheets("Tabelle2").Range("M7:N10000"), _
2)
If IsError(test2) Then GoTo Weiter
If test1 = 1 And test2 = 1 Then
Sheets("Tabelle3").Cells(k + 2, 1) = StrSchlüssel
Sheets("Tabelle3").Cells(k + 2, 2) = Application.VLookup(StrSchlüssel, Sheets("Tabelle1").Range( _
"O8:Q10000"), 3)
Sheets("Tabelle3").Cells(k + 2, 3) = Application.VLookup(StrSchlüssel, Sheets("Tabelle2").Range( _
"M7:O10000"), 3)
k = k + 1
End If
Weiter:
Next i
End Sub
Immerhin läuft das Makro endlich ohne Fehler durch, allerdings ist das Resultat keinesfalls hilfreich. Die rauskopierten Werte und Schlüssel sind mehrfach (bis zu 70 Mal) vorhanden, obwohl das in den Rohdaten nicht der Fall ist.Kann mir jemand sagen, wo der Fehler liegt?
Vielen Dank für eure Hilfe!
Max