mit Set xy = ActiveSheet.Range("G13:P13")
und xy.copy
kopier ich einen Bereich aus nem Tabellenblatt.
Jetzt will ich eben xy in ein neues Tabellen kopieren:
Mit 2 if und for Schleifen weise ich den Variablen
b einen Wert zu der die Spaltennummer darstellt
y einen wert der die Zeilennummer darstellt
(Die Werte stimmen auch soweit...)
also insgesamt für die Zelle (y, b) steht.
Wenn ich jetzt xy ab cells(y , b) einfügen will, klappt des ganze aber nicht wirklich:
Mit Makroaufzeichnen hab ichs auch schon probiert, der spuckt mir sowas aus wie (für mich dann angepasst...)
Sheets("Blatt1").Cells(i, b).Select
Selection.Paste
Allerdings gefällt dem die Zeile Sheets("Blatt1").Cells(i, b).Select scheinbar nicht...