Hallo

ich habe mit hilfe von sam

Folgenden Code
Dim i as Byte
For i = 2 To 20
If Range("D"& i).Value ="NON" Then
Range("G1") =Range("A"&i)
End if
Next i

Der code funktioniert , aber ich hatte vergessen dass in der Kolonne "D" mehrmals "NON" stehen kann, mit diesem Code gibt er mir jedesmal nur den letzten "NON".
ich möchte dass er alle "Non" berücksichtigt und diese in ab G1 untereinander kopiert.
Geht das vielleicht mit SELECT CASE ??

Danke im voraus und gruss
Lucien