Zellbezüge verändern
17.05.2009 13:37:52
Felix
Ich habe hier ein schönes kleines Macro zusammen gebastelt, was eigentlich gut macht was ich möchte.
Das Problem ist nun, dass ich gerne eine weitere Spalte ein das betreffende Excel sheet einfügen will und dann alle Bezüge im Makro nicht mehr stimmen. So wäre z.b. die Range("C4:C853") dann eine Range("D4:D853"), aber das ändert sich ja leider nicht automatisch wie bei Excel.
Gibt es da eine Möglichkeit das automatisch zu aktualisieren?
Vielen Dank!
Sub copyHeli()
Worksheets("data").Range("a1:a850").Copy
Worksheets("heli").Range("c4:C853").PasteSpecial xlPasteValues
Worksheets("data").Range("b1:b850").Copy
Worksheets("heli").Range("d4:d853").PasteSpecial xlPasteValues
Worksheets("data ").Range("b1:b850").Copy
Worksheets("heli").Range("k4:k853").PasteSpecial xlPasteValues
Select Case Sheets("heli").Cells(2, 16).Value
Case "01/01/2009"
Worksheets("data").Range("c1:c850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/02/2009"
Worksheets("data").Range("d1:d850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/03/2009"
Worksheets("data").Range("e1:e850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/04/2009"
Worksheets("data").Range("f1:f850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/05/2009"
Worksheets("data").Range("g1:g850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/06/2009"
Worksheets("data").Range("h1:h850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/07/2009"
Worksheets("data").Range("i1:i850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/08/2009"
Worksheets("data").Range("j1:j850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/09/2009"
Worksheets("data").Range("k1:k850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/10/2009"
Worksheets("data").Range("l1:l850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/11/2009"
Worksheets("data").Range("m1:m850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
Case "01/12/2009"
Worksheets("data").Range("n1:n850").Copy
Worksheets("heli").Range("e4:e853").PasteSpecial xlPasteValues
End Select
End Sub
Anzeige