Schleife
27.02.2004 12:42:45
Peter
warum erwischt dieses Makro nicht alle Daten ??
Sub test()
Dim i
For i = 2 To 100 Step 1
If Cells(i, 8).Value = "NEIN" Then
Cells(i, 8).Offset(0, -5).Select
Selection.Copy
ActiveCell.Offset(0, -2).Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next i
End Sub
Danke für Eure Hilfe
Gruss
Peter