Hallo Zusammen,
wollte eine kleine Schleife Programmieren, die
den Inhalt von Alt in neu reinkompiert.
Einzige Voraussetzung ist, dass in Spalte N = FREMD1 stehen soll.
For i = 2 To wbAlt.Cells(Rows.Count, 1).End(xlUp).Row
If wbAlt.Worksheets("VORRAT").Range("N" & i).Value = "FREMD1" Then wbAlt.Worksheets("VORRAT").Range("A" & i & ":U" & i).Copy Destination:=wbNeu.Worksheets("RW-Daten A").Range("A" & i & ":U" & i)
Next i
Irgendwie ignoriert er das IF.
Es werden alle Daten aus Alt in Neu reinkopiert.
Wenn ich vor dem next i ein else und end if setzen möchte,
dann bringt er mir die Fehlermeldung, dass kein IF vorhanden ist ?
Wer kann mir da behilflich sein ?
Danke
:-)
Stefan