Hallo,
Die Problematik stellt sich folgendermasen dar:
Es gibt viele, viele Dateien, die Eingelesen werden und dann wird deren "länge und Breite" festgestellt,
Das ist für spätere Berechnungen wichtig.! Für diese Berechnungen muss ich einmal alles kopieren und einmal alles nach unten markieren:
ZUM Beispiel so:
.....
Sheets("Rechenwerte").Range("A3:Cells(nlastcol,nlastrow)).Select
Selection.Copy
.....
.....
Range("N4").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2],RC[-1])"
Range("N4:Cells(N,nlastrow").Select
Selection.FillDown
......
und es will nicht funktionieren! Wo ist mein Denkfehler? Was mache ich falsch?
Viele Grüße und auf eine baldige Antwort hoffend... Tobsi
Die Problematik stellt sich folgendermasen dar:
Es gibt viele, viele Dateien, die Eingelesen werden und dann wird deren "länge und Breite" festgestellt,
Das ist für spätere Berechnungen wichtig.! Für diese Berechnungen muss ich einmal alles kopieren und einmal alles nach unten markieren:
ZUM Beispiel so:
.....
Sheets("Rechenwerte").Range("A3:Cells(nlastcol,nlastrow)).Select
Selection.Copy
.....
.....
Range("N4").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2],RC[-1])"
Range("N4:Cells(N,nlastrow").Select
Selection.FillDown
......
und es will nicht funktionieren! Wo ist mein Denkfehler? Was mache ich falsch?
Viele Grüße und auf eine baldige Antwort hoffend... Tobsi