Index-Vergleich in VBA
29.04.2020 14:27:00
dominik
ich versuche in VBA eine Index-Vergleich-Formel zu schreiben, die Daten aus einer Arbeitsmappe in eine andere kopiert. Mein Problem ist, dass die Formel funktioniert hat und jetzt plötzlich geht sie nicht mehr und der Laufzeitfehler 1004 taucht auf. Ich weiß nicht mehr weiter und hoffe Ihr könnt mir vllt helfen.
Gruß dominik
Sub INDEX_MATCH_Example1()
Dim ziel As Workbook
Dim i As Integer
Dim j As Integer
suchen1 = "Einheit*"
letztespalte = Cells(14, Columns.Count).End(xlToLeft).Column
letztezeile = Cells(Rows.Count, 15).End(xlUp).Row
Set Start = ThisWorkbook
Set ziel = Workbooks.Open("C:\users\test\desktop\Mappe12.xlsm")
For j = 15 To letztespalte
If Start.Sheets("Tabelle1").Cells(14, j).Value Like suchen1 = True Then
For i = 15 To letztezeile
ziel.Sheets("tabelle1").Cells(i, j).Value = WorksheetFunction.Index(Start.Sheets("tabelle1"). _
Range("o15:r" & letztezeile), WorksheetFunction.Match(ziel.Sheets("tabelle1").Cells(i, 14). _
Value, Start.Sheets("tabelle1").Range("n15:n" & letztezeile), 0), WorksheetFunction.Match(ziel.Sheets("Tabelle1").Cells(14, j).Value, Start.Sheets("Tabelle1").Range(Cells(14, 15), Cells(14, letztespalte)), 0))
Next i
End If
Next j
End Sub