Geht das einfacher?
08.10.2004 13:27:25
Martin
Ich habe folgendes Problem mit diesem Quellcode
Sub Werte_Übernehmen()
Worksheets("Parameter").Range("I2:I27").Copy Destination:=Worksheets("Page_1").Range("A6")
Worksheets("Parameter").Range("J2:J27").Copy Destination:=Worksheets("Page_1").Range("B6")
Worksheets("Parameter").Range("F2:F27").Copy Destination:=Worksheets("Page_1").Range("C6")
Worksheets("Parameter").Range("G2:G27").Copy Destination:=Worksheets("Page_1").Range("D6")
Worksheets("Parameter").Range("B2:B27").Copy Destination:=Worksheets("Page_1").Range("E6")
Worksheets("Parameter").Range("C2:C27").Copy Destination:=Worksheets("Page_1").Range("F6")
Worksheets("Parameter").Range("D2:D27").Copy Destination:=Worksheets("Page_1").Range("G6")
Worksheets("Parameter").Range("E2:E27").Copy Destination:=Worksheets("Page_1").Range("H6")
Worksheets("Parameter").Range("A2:A27").Copy Destination:=Worksheets("Page_1").Range("I6")
Worksheets("Parameter").Range("H2:H27").Copy Destination:=Worksheets("Page_1").Range("J6")
Worksheets("Parameter").Range("I28:I53").Copy Destination:=Worksheets("Page_2").Range("A6")
Worksheets("Parameter").Range("J28:J53").Copy Destination:=Worksheets("Page_2").Range("B6")
Worksheets("Parameter").Range("F28:F53").Copy Destination:=Worksheets("Page_2").Range("C6")
Worksheets("Parameter").Range("G28:G53").Copy Destination:=Worksheets("Page_2").Range("D6")
Worksheets("Parameter").Range("B28:B53").Copy Destination:=Worksheets("Page_2").Range("E6")
Worksheets("Parameter").Range("C28:C53").Copy Destination:=Worksheets("Page_2").Range("F6")
Worksheets("Parameter").Range("D28:D53").Copy Destination:=Worksheets("Page_2").Range("G6")
Worksheets("Parameter").Range("E28:E53").Copy Destination:=Worksheets("Page_2").Range("H6")
Worksheets("Parameter").Range("A28:A53").Copy Destination:=Worksheets("Page_2").Range("I6")
Worksheets("Parameter").Range("H28:H53").Copy Destination:=Worksheets("Page_2").Range("J6")
Er funktioniert einwandfrei aber das geht nun biss Page_42 so und manchmal auch noch viel weiter. (Habe kein Bock das alles einzu tippen)
kann mann das nicht irgentwie vereinfachen
Dank im Vorraus
Gruß sagt Martin