Hallo habe da ein kleines Schleifen Problem aus dem ich nicht rauskomme und brauch Hilfe.
Ich habe eine Tabelle in der an jeder 4.Zeile etwas eingefügt werden soll also A3, A7, A11, A15 usw.
Den Inhalt hol ich mir aus einer anderen Spalte allerdings sind hier alle Daten schön untereinder C3,C4,C5,C6.
Per Schleife kann ich die Daten aus C alle schön rausholen.
Sub test()
Dim i As Integer
For i = 1 To 1000
Cells(i, 3).Select
Selection.Cut
Cells(i, 1).Select
ActiveSheet.Paste
Next i
End Sub
Nur das einfügem an der richtigen stelle bekomm ich nicht hin.
Hat wer einen Rat
Danke schon mal im Vorraus
|