Frank hat mir heute geholfen und auch dieses code soll bestimmt in Ordnung sein, aber ich mache bestimmt etwas verkehrt, weil ich Fehler Meldung bekomme und dieses code auch im Fenster rot erscheint:
"
Beispiel für Zeile 110 bis 1000, Spalte A:
For lngRow = 110 to 1000
Cells(lngRow, "A").Formula = "=WENN('[Positionen-neu.xls]Pos" & lngRow & "'!$F$10="Kiyma";'[Positionen-neu.xls]Pos" & lngRow & "'!$F$14;"")"
Next
Viel Erfolg
Frank.
"
Danke im voraus
mfg
ömer