Code anpassen
26.10.2012 19:59:34
Fritz_W
ich bitte um Hilfe bei der Anpassung des nachstehenden Codes, mit dem ich (bislang) Zellbereiche der 'Tabelle1' in die Tabelle Aufgaben übertrage.
Sub Uebertragen()
Worksheets("Aufgaben").Range("B3:J11").Value = Worksheets("Tabelle1").Range("B3:J11").Value
Worksheets("Aufgaben").Range("D2").Value = Worksheets("Tabelle1").Range("I2").Value
Worksheets("Aufgaben").Range("L3:T11").Value = Worksheets("Tabelle1").Range("B3:J11").Value
Worksheets("Aufgaben").Range("N2").Value = Worksheets("Tabelle1").Range("I2").Value
Worksheets("Aufgaben").Range("V3:AD11").Value = Worksheets("Tabelle1").Range("B3:J11").Value
Worksheets("Aufgaben").Range("X2").Value = Worksheets("Tabelle1").Range("I2").Value
Worksheets("Aufgaben").Range("B15:J23").Value = Worksheets("Tabelle1").Range("B3:J11").Value
Worksheets("Aufgaben").Range("D14").Value = Worksheets("Tabelle1").Range("I2").Value
Worksheets("Aufgaben").Range("L15:T23").Value = Worksheets("Tabelle1").Range("B3:J11").Value
Worksheets("Aufgaben").Range("N14").Value = Worksheets("Tabelle1").Range("I2").Value
Worksheets("Aufgaben").Range("V15:AD23").Value = Worksheets("Tabelle1").Range("B3:J11").Value
Worksheets("Aufgaben").Range("X14").Value = Worksheets("Tabelle1").Range("I2").Value
Worksheets("Aufgaben").Range("B27:J35").Value = Worksheets("Tabelle1").Range("B3:J11").Value
Worksheets("Aufgaben").Range("D26").Value = Worksheets("Tabelle1").Range("I2").Value
Worksheets("Aufgaben").Range("L27:T35").Value = Worksheets("Tabelle1").Range("B3:J11").Value
Worksheets("Aufgaben").Range("N26").Value = Worksheets("Tabelle1").Range("I2").Value
Worksheets("Aufgaben").Range("V27:AD35").Value = Worksheets("Tabelle1").Range("B3:J11").Value
Worksheets("Aufgaben").Range("X26").Value = Worksheets("Tabelle1").Range("I2").Value
End Sub
Für eure Unterstützung bereits im Voraus besten Dank.
mfg
Fritz
Anzeige