ich möchte mit Z.B.
Set Feld = Range("A2:L21")
einen Bereich in ein Array einladen. Dann im Code dieses Array bearbeiten und dann in die tabelle zurückschreiben.
Das Zurückschreiben kriege ich leider nicht hin :-(
Wie geplant stehen dann in B2:B13 die Texteinträge B1 bis B12, desgleichen bei L2:l13.
Aber in A14:L21 steht überall #NV
Dies gilt aber nur wenn ich den Code in einem leeren Blatt laufen lasse.
Lief der Code schonmal wird's dann ganz verwirrend :-(
Nachstehend Beispielcode, der auch in diser Beispielmappe steht:
https://www.herber.de/bbs/user/78567.xls
Danke ^ Gruß
Reinhard
Sub Sor()
Dim Feld, Z As Long, S As Long
Set Feld = Range("A2:L21")
For S = 2 To 12 Step 10
For Z = 1 To 20
Feld(S, Z) = Chr(64 + S) & Z
Next Z
Next S
Range("A2:L21") = Application.Transpose(Feld)
End Sub