Also das mit dem Kopieren habe ich ja nun raus. Jetzt ist mir aufgefallen, das wenn in einer Spalte Null steht, das dann nicht Kopiert werden darf. Um dies noch abzufragen habe ich folgende IF Abfrage geschrieben:
If Cells(Aktz, 7).Value <> 0 Then
Cells(Aktz, 8).Value = Cells(Aktz, 6).Value
Else
Cells(Aktz, 8).Value = 0
End If
Das Problem ist, es wird immer Null eingetragen, auch wenn in Spalte G keine Null steht.