bei dem Zielbereich mu?t Du nur die erste Zelle angeben.
Gru? Hajo
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen