Hallo Flo,
Du kannst die aus Excel bekannten Funktionen SVERWEIS (bzw. VLOOKUP) oder VERGLEICH (bzw. MATCH) auch in VBA nutzen um eine andere Spalte oder ein Array zu durchsuchen. Der Code zum Durchsuchen einer Spalte könnte in etwa so aussehen:
Sub WertSuchen()
Dim intRow1 As Integer, Wert As Variant
For intRow1 = 6 To 5005
Wert = Sheets("Tabelle1").Cells(intRow1, 1).Value
If Wert <> "" And Not IsError(Application.Match(Wert, Sheets("Tabelle2").Range("F:F"), 0)) Then
MsgBox "Wert " & Wert & " vorhanden"
End If
Next intRow1
End Sub
Wenn du lieber ein Array verwenden möchtest kann der Code entsprechend variiert werden:
Sub WertSuchen2()
Dim intRow1 As Integer, Wert As Variant, Suchwerte As Variant
Suchwerte = Array("Wert1", "Wert2", "Wert3", "Wert5")
For intRow1 = 6 To 5005
Wert = Sheets("Tabelle1").Cells(intRow1, 1).Value
If Wert <> "" And Not IsError(Application.Match(Wert, Suchwerte, 0)) Then
MsgBox "Wert " & Wert & " vorhanden"
End If
Next intRow1
End Sub
Beachte hier dass die Variable Suchwerte das gewünschte Array enthält, wärend Wert einen der Werte aus Tabelle1 Spalte A zurückgiebt.
Probiers einfach aus und bei Fragen kannst du dich jederzeit melden.
Gruß Mr. K.
|