wie kann ich den untenstehenden code so verendern,dass die schleife in der ersten freien zeile der spalte ("AU")startet.
wenn ich in der zeile ab("AU4 : 10")meine werte eingetragen habe,
dann soll die schleife nicht ab zeile ("AU4") beginnen sondern
die naechste freie zeile suchen (das waere dann die 11 zeile)und dort die werte eintragen.
pro makrostart soll nur eine zeile bearbeitet werden.
Option Explicit
Public Sub DoubleCopy()
Dim Rows As Integer
For Rows = 4 To 54
Cells(Rows, 47) = Cells(Rows, 12).Value
Cells(Rows, 48) = Cells(Rows, 14).Value
Cells(Rows, 49) = Cells(Rows, 16).Value
Cells(Rows, 50) = Cells(Rows, 18).Value
Cells(Rows, 51) = Cells(Rows, 20).Value
Cells(Rows, 52) = Cells(Rows, 22).Value
Cells(Rows, 53) = Cells(Rows, 24).Value
Cells(Rows, 54) = Cells(Rows, 26).Value
Cells(Rows, 55) = Cells(Rows, 28).Value
Cells(Rows, 56) = Cells(Rows, 30).Value
Cells(Rows, 57) = Cells(Rows, 32).Value
Cells(Rows, 58) = Cells(Rows, 34).Value
Cells(Rows, 59) = Cells(Rows, 36).Value
Cells(Rows, 60) = Cells(Rows, 38).Value
Cells(Rows, 61) = Cells(Rows, 40).Value
Cells(Rows, 62) = Cells(Rows, 42).Value
Cells(Rows, 63) = Cells(Rows, 44).Value
Cells(Rows, 64) = Cells(Rows, 46).Value
Next
Range("J63").Activate
End Sub
danke marc