Code erweitern
27.08.2003 17:04:48
LUCIEN
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