Moin,
erstmal danke für deine Hilfe. Habe jetzt folgenden Code, jedoch funktioniert dieser nicht. Vielleicht habe ich da noch ein Denkfehler? Sorry, bin in dieser Sache ein Laie...
Sub Test()
Dim a As Variant
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim vntaWks As Variant
Dim vntWks As Variant
Dim lngLastRow As Long
Dim i As Long
vntaWks = Array("A", "B", "C", "X", "Y", "Z")
For Each vntWks In vntaWks
Set wksZ = Worksheets(vntWks)
lngLastRow = wksZ.Cells(wksZ.Rows.Count, 3).End(xlUp).Row
For i = 1 To lngLastRow
a = Application.Match(wksZ.Cells(i, 3), wksQ.Columns(2), 0)
If IsNumeric(a) Then
wksZ.Cells(i, 6).Value = wksQ.Cells(a, 11).Value
Else
MsgBox "nicht vorhanden"
End If
Next
Next
Set wksQ = Nothing
Set wksZ = Nothing
End Sub
|