Kopieren und einfuegen
17.09.2014 08:50:46
Steve
Da mir gerade schon so gut und schnell geholfen werden konnte hab ich hier gleich nochmal ein Problem.
Ausgangslage ist, dass Zeile A1 bis F1 gefüllt ist. Danach kommen 95 Leerzeilen und in A97 bis F97 stehen wieder Daten. Ich möchte jetzt jeweils den Inhalt von A1 bis F1 in die darunter liegenden 95 Leerzeilen kopieren und anschließend widerum A97 bis F97 in die darunter liegenden 95 Leerzeilen kopieren. Der Vorgang soll so lange laufen bis nach den 95 Leerzeilen in Spalte A bis F kein Eintrag mehr vorhanden ist, der kopiert werden kann.
Momentan hab ich das so gelöst. Er kopiert mir hier aber nur die A1 bis F1 für die nächsten 95 Zeilen und bei den nächsten Zeilen funktioniert das nicht mehr. Bisher muss ich auch noch die Schleifendurchläufe eingeben, war erstmal zum Testen angedacht.
Sub copypaste()
Application.ScreenUpdating = False
For i = 1 To 10
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1:F95").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=84
ActiveCell.Offset(95, 0).Range("A1").Select
Next i
Application.ScreenUpdating = True
End Sub
Beste Grüße,
Steve