Mittlerweile habe ich viel rumprobiert und bin soweit:
(habe erst einmal mit nur einem Kopiervorgang getestet und mir die anderen Daten in ein Sheet in meiner Ursprungstabelle kopiert, um es mir ein bißchen einfacher zu machen.)
Es funktioniert insofern, dass Excel den SVerweis jetzt wirklich über alle gefüllten Zellen meiner Spalte A laufen lässt (was mich als absoluten Neuling sehr stolz macht!), leider ist das Ergebnis NV#
Und ich finde den verdammten Fehler nicht.
Sub Sverweis()
Dim i As Long
With Sheets("Stempelkarten")
For i = 5 To 4000
If Not IsError(Application.VLookup(.Cells(i, "A"), Sheets("Stempelkarten").Range("A5:E1000"), 1, 0)) Then
.Cells(i, "B") = Application.VLookup(.Cells(i, "G"), Sheets("openfil").Range("A1:AE4000"), 7, 0)
End If
Next
End With
Range("A1:Z1000").Formula = Range("A1:Z1000").Value
End Sub
|