eine Frage, ich möchte gerne per vba in der Spalte AT ab Zeile 7 bis iRow
diese Formel ziehen:
=WENN(ISTFEHLER(VERGLEICH(Z7;Tabelle1!$B$1:$IV$1;0));0;WENN(ISTFEHLER(VERGLEICH(Y7;Tabelle1!$B$2:$B$4945;0));0;SVERWEIS(Y7;Tabelle1!$B$2:$IV$1945;VERGLEICH(Z7;Tabelle1!$B$1:$IV$1;0);0)))
Ich habe diese Code geschrieben, aber es funktioniert nicht...
Da ist was falsch, aber ich weiß nicht was...
Kann mir vielleicht jemand sagen, was ich ändern soll, damit es richtig funktioniert..
Dim iRowNext As Integer
Dim StartRow As Integer
iRowNext = ActiveSheet.Cells(Rows.Count, 26).End(xlUp).Row
SartRow = 7
For i = StartRow To iRowNext
Cell = "AT" & i
Formula = "=WENN(ISTFEHLER(VERGLEICH(Z8;Tabelle1!$B$1:$IV$1;0));0;WENN(ISTFEHLER(VERGLEICH(Y8;Tabelle1!$B$2:$B$4945;0));0;SVERWEIS(Y8;Tabelle1!$B$2:$IV$1945;VERGLEICH(Z8;Tabelle1!$B$1:$IV$1;0);0)))"
ActiveCell.Formula = Formula
Next
...
Viele Grüße
Julia