VBA Range aus Blatt B in Blatt A ab Zelle

[Lucker11]

Code:

Sheets(„BlattA“).cells(2,2)=Sheets(„BlattB“).range(cells(2,2),cells(2,9))

Hallo zusammen,

Ich möchte auch einem Tabellenblatt B eine Zeile in Tabellenblatt A ab Zelle X einfügen, also quasi so wie oben.

Die Zelle 2,2 in Blatt A soll quasi als Startzelle dienen. Gibt es eine Möglichkeit das so, ohne den Kopierenbefehl zu benutzen, umzusetzen?

Danke im Vorraus
Max

[Lutz Fricke]

Hallo Max,

würde ich so machen:

Code:

Dim Spalte
For Spalte = 2 To 9
    Sheets("BlattA").Cells(2, Spalte).Value = Sheets("BlattB").Cells(2, Spalte).Value
Next Spalte

Gruß,
Lutz