WS1.Range(WS1.Cells(i, TextD1A="A"), WS1.Cells(i, TextD1E="Z")).Copy WS2.Cells(j, TextD2An="C")
gen?gt.
falls du es dochmal ausrechnen willst, dann kannst du mit Columns("Z").Column eine Buchstaben-Spaltenbezeichnung in die Nummer-Spaltenbezeichung umwandeln.
ansonsten bin ich dazu ?bergegangen, in solchen F?llen vorzugsweise mit der RESIZE-Funktion zu arbeiten, das erspart mir die doppelten Sheet-Angaben in der RANGE-Funktion.
deine Kopieranweisung w?rde damit so aussehen:
x = columns("Z").column - columns("A").column + 1
WS1.Cells(i, "A").Resize(1, x).copy WS2.Cells(j, "C")
Gru?, Daniel
wobei es f?r das Berechnen der Anzahl der Spalten noch ein paar Varianten gibt:
x = Range(TextD1A & ":" & TextD1E).columns.count
um nur mal eine zu nennen
WS1.Range(WS1.Cells(i, TextD1A="A"), WS1.Cells(i, TextD1E="Z")).Copy WS2.Cells(j, TextD2An="C")
gen?gt.
falls du es dochmal ausrechnen willst, dann kannst du mit Columns("Z").Column eine Buchstaben-Spaltenbezeichnung in die Nummer-Spaltenbezeichung umwandeln.
ansonsten bin ich dazu ?bergegangen, in solchen F?llen vorzugsweise mit der RESIZE-Funktion zu arbeiten, das erspart mir die doppelten Sheet-Angaben in der RANGE-Funktion.
deine Kopieranweisung w?rde damit so aussehen:
x = columns("Z").column - columns("A").column + 1
WS1.Cells(i, "A").Resize(1, x).copy WS2.Cells(j, "C")
Gru?, Daniel
wobei es f?r das Berechnen der Anzahl der Spalten noch ein paar Varianten gibt:
x = Range(TextD1A & ":" & TextD1E).columns.count
um nur mal eine zu nennen