Makro mit Schleife
19.06.2008 13:50:00
mehmet
ich habe folgendes Makro aufgezeichnet:
...
Range("B12").Select: Selection.Cut Destination:=Range("A6")
Range("B13").Select: Selection.Cut Destination:=Range("B6")
Range("B14").Select: Selection.Cut Destination:=Range("C6")
Range("B15").Select: Selection.Cut Destination:=Range("D6")
Range("B16").Select: Selection.Cut Destination:=Range("E6")
Range("D12").Select: Selection.Cut Destination:=Range("F6")
Range("D13").Select: Selection.Cut Destination:=Range("G6")
Range("D14").Select: Selection.Cut Destination:=Range("H6")
Range("D15").Select: Selection.Cut Destination:=Range("I6")
Range("D16").Select: Selection.Cut Destination:=Range("J6")
Range("B17").Select: Selection.Cut Destination:=Range("A7")
Range("B18").Select: Selection.Cut Destination:=Range("B7")
Range("B19").Select: Selection.Cut Destination:=Range("C7")
Range("B20").Select: Selection.Cut Destination:=Range("D7")
Range("B21").Select: Selection.Cut Destination:=Range("E7")
Range("D17").Select: Selection.Cut Destination:=Range("F7")
Range("D18").Select: Selection.Cut Destination:=Range("G7")
Range("D19").Select: Selection.Cut Destination:=Range("H7")
Range("D20").Select: Selection.Cut Destination:=Range("I7")
Range("D21").Select: Selection.Cut Destination:=Range("J7")
Range("B22").Select: Selection.Cut Destination:=Range("A8")
Range("B23").Select: Selection.Cut Destination:=Range("B8")
Range("B24").Select: Selection.Cut Destination:=Range("C8")
Range("B25").Select: Selection.Cut Destination:=Range("D8")
Range("B26").Select: Selection.Cut Destination:=Range("E8")
Range("D22").Select: Selection.Cut Destination:=Range("F8")
Range("D23").Select: Selection.Cut Destination:=Range("G8")
Range("D24").Select: Selection.Cut Destination:=Range("H8")
Range("D25").Select: Selection.Cut Destination:=Range("I8")
Range("D26").Select: Selection.Cut Destination:=Range("J8")
Range("B27").Select: Selection.Cut Destination:=Range("A9")
Range("B28").Select: Selection.Cut Destination:=Range("B9")
Range("B29").Select: Selection.Cut Destination:=Range("C9")
Range("B30").Select: Selection.Cut Destination:=Range("D9")
Range("B31").Select: Selection.Cut Destination:=Range("E9")
Range("D27").Select: Selection.Cut Destination:=Range("F9")
Range("D28").Select: Selection.Cut Destination:=Range("G9")
Range("D29").Select: Selection.Cut Destination:=Range("H9")
Range("D30").Select: Selection.Cut Destination:=Range("I9")
Range("D31").Select: Selection.Cut Destination:=Range("J9")
Range("B32").Select: Selection.Cut Destination:=Range("A10")
Range("B33").Select: Selection.Cut Destination:=Range("B10")
Range("B34").Select: Selection.Cut Destination:=Range("C10")
Range("B35").Select: Selection.Cut Destination:=Range("D10")
Range("B36").Select: Selection.Cut Destination:=Range("E10")
Range("D32").Select: Selection.Cut Destination:=Range("F10")
Range("D33").Select: Selection.Cut Destination:=Range("G10")
Range("D34").Select: Selection.Cut Destination:=Range("H10")
Range("D35").Select: Selection.Cut Destination:=Range("I10")
Range("D36").Select: Selection.Cut Destination:=Range("J10")
Range("B12").Select: Selection.Cut Destination:=Range("A11")
Range("B13").Select: Selection.Cut Destination:=Range("B11")
Range("B14").Select: Selection.Cut Destination:=Range("C11")
Range("B15").Select: Selection.Cut Destination:=Range("D11")
Range("B16").Select: Selection.Cut Destination:=Range("E11")
Range("D12").Select: Selection.Cut Destination:=Range("F11")
Range("D13").Select: Selection.Cut Destination:=Range("G11")
Range("D14").Select: Selection.Cut Destination:=Range("H11")
Range("D15").Select: Selection.Cut Destination:=Range("I11")
Range("D16").Select: Selection.Cut Destination:=Range("J11")
Range("B17").Select: Selection.Cut Destination:=Range("A12")
Range("B18").Select: Selection.Cut Destination:=Range("B12")
Range("B19").Select: Selection.Cut Destination:=Range("C12")
Range("B20").Select: Selection.Cut Destination:=Range("D12")
Range("B21").Select: Selection.Cut Destination:=Range("E12")
Range("D17").Select: Selection.Cut Destination:=Range("F12")
Range("D18").Select: Selection.Cut Destination:=Range("G12")
Range("D19").Select: Selection.Cut Destination:=Range("H12")
Range("D20").Select: Selection.Cut Destination:=Range("I12")
Range("D21").Select: Selection.Cut Destination:=Range("J12")
Range("B22").Select: Selection.Cut Destination:=Range("A13")
Range("B23").Select: Selection.Cut Destination:=Range("B13")
Range("B24").Select: Selection.Cut Destination:=Range("C13")
Range("B25").Select: Selection.Cut Destination:=Range("D13")
Range("B26").Select: Selection.Cut Destination:=Range("E13")
Range("D22").Select: Selection.Cut Destination:=Range("F13")
Range("D23").Select: Selection.Cut Destination:=Range("G13")
Range("D24").Select: Selection.Cut Destination:=Range("H13")
Range("D25").Select: Selection.Cut Destination:=Range("I13")
Range("D26").Select: Selection.Cut Destination:=Range("J13")
Range("B27").Select: Selection.Cut Destination:=Range("A14")
Range("B28").Select: Selection.Cut Destination:=Range("B14")
Range("B29").Select: Selection.Cut Destination:=Range("C14")
Range("B30").Select: Selection.Cut Destination:=Range("D14")
Range("B31").Select: Selection.Cut Destination:=Range("E14")
Range("D27").Select: Selection.Cut Destination:=Range("F14")
Range("D28").Select: Selection.Cut Destination:=Range("G14")
Range("D29").Select: Selection.Cut Destination:=Range("H14")
Range("D30").Select: Selection.Cut Destination:=Range("I14")
Range("D31").Select: Selection.Cut Destination:=Range("J14")
Range("B32").Select: Selection.Cut Destination:=Range("A15")
Range("B33").Select: Selection.Cut Destination:=Range("B15")
Range("B34").Select: Selection.Cut Destination:=Range("C15")
Range("B35").Select: Selection.Cut Destination:=Range("D15")
Range("B36").Select: Selection.Cut Destination:=Range("E15")
Range("D32").Select: Selection.Cut Destination:=Range("F15")
Range("D33").Select: Selection.Cut Destination:=Range("G15")
Range("D34").Select: Selection.Cut Destination:=Range("H15")
Range("D35").Select: Selection.Cut Destination:=Range("I15")
Range("D36").Select: Selection.Cut Destination:=Range("J15")
Wie kann ich dies als eine Schleife realisieren?
Dank und Gruss
Mehmet