For Next Schleife Kopieren und Einfügen
Sascha
Ich habe mal wieder ein Problem bei dem ich anstehe...
Ich habe eine for next Schleife gebastelt, die mir Zellen in einer Bestimmten Zeile Kopieren und dann in einem anderen Blatt in einem bestimmten Bereich einfügen soll.
Das kopieren der Zellen klappt schon mal, nun möchte ich aber im Blatt "Hilf" diese Zellen ab Zelle R1 einfügen.
Das Problem ist, dass es nun die erste Zelle kopiert, dann aber zur nächsten hüpft bis zum Schluss. (Also habe ich eigentlich nur die letzte Zelle Kopiert).
Wie schaffe ich es dass es nach jeder kopierten Zelle zuerst im Blatt Hilf (bei R1 angefangen) einfügt, dann kopiert, einfügt , kopiert usw... ?
hier der code:
Private Sub Überstellen()
Dim n As Integer, zei As Long, i As Integer
Sheets("LW11").Activate
Application.EnableEvents = False
Application.ScreenUpdating = False
Call SchutzAus
zei = 0
For i = 1 To 31 'Schlaufe für heutigen Tag/Zeile bestimmen
Cells(i + 2, 1) = i
If Sheets("Hilf").Cells(i + 2, 6) = Date Then
zei = i + 2
Exit For
End If
Next i
For n = 29 To 46
Cells(zei, n).Copy
Sheets("Hilf").Range("R2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next n
End Sub
Sascha