Ich möchte jede Zelle in Spalte AG vergleichen, ob sie kleiner 20 ist. Wenn ja, dann soll AF in AI geschrieben werden.
Anschließend soll die Liste alphabetisch sortiert werden (noch nicht programmiert), unter anderem, damit die leeren Felder raus sind.
So hat es nicht geklappt. Leider weiß ich nicht warum.
For i = 5 To sp_zahl
If Cells(i, "AG") < 20 Then
Range("AF" & i).Copy
Range("AI" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next i
Hoffe jemand kann schnell helfen.