Das Archiv des Excel-Forums
AutoFill mit variablem Bereich
- AutoFill mit variablem Bereich von Tobias vom 15.10.2003 13:33:58
- AW: AutoFill mit variablem Bereich - von xXx am 15.10.2003 13:39:15
- AW: AutoFill mit variablem Bereich - von Tobias am 15.10.2003 14:23:10
- AW: AutoFill mit variablem Bereich - von xXx am 15.10.2003 16:04:31
- AW: AutoFill mit variablem Bereich - von Tobias am 16.10.2003 12:12:11
- AW: AutoFill mit variablem Bereich - von Tobias am 16.10.2003 12:12:11
- AW: AutoFill mit variablem Bereich - von xXx am 15.10.2003 16:04:31
- AW: AutoFill mit variablem Bereich - von Tobias am 15.10.2003 14:23:10
- AW: AutoFill mit variablem Bereich - von xXx am 15.10.2003 13:39:15
 |
Betrifft: AutoFill mit variablem Bereich
von: Tobias
Hallo,
Ich möchte eine im Feld E5 stehende Formel mit Hilfe eines Makros nach unten bis in die letzte Zeile meiner Tabelle ziehen. Dabei ist die Zeilenanzahl variabel.
Folgender Code zieht die Formel bis in Zeile 100:
Selection.AutoFill Destination:=Range("E5:E100"), Type:=xlFillDefault
Der Teil "E100" muss nun variabel gestaltet werden.
Mit COUNT(C[-1]) bekomme ich die Anzahl der Zahlen, die links neben der derzeit aktivierten Spalte stehen. Wenn ich zu dieser Zahl 4 summiere hätte ich die jeweils gewünschte Zeilennummer.
Wie kann ich also den Range variabel definieren.
Gruss Tobias
 |
Betrifft: AW: AutoFill mit variablem Bereich
von: xXx
Geschrieben am: 15.10.2003 13:39:15
Hallo,
du hast es doch schon fast!
Selection.AutoFill Destination:=Range("E5:E" &count(C[-1])+4)
Besser: =Range(cells(5,5),cells(count(c[-1])+4,5))
Select ist in 99% der Fälle in VBA nicht nötigt und verlangsamt nur den Code.
Gruß aus'm Pott
Udo
http://www.excelerator.de
P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
|
Betrifft: AW: AutoFill mit variablem Bereich
von: Tobias
Geschrieben am: 15.10.2003 14:23:10
Hallo nochmal und schonmal danke,
es gibt jedoch noch ein problem.
wenn ich
Selection.AutoFill Destination:=Range("E5:E" &count(C[-1])+4)
oder
Selection.AutoFill Destination:=Range(cells(5,5),cells(count(c[-1])+4,5))
angebe, bekomme ich folgende Fehlermeldung:
Fehler beim Kompilieren:
Erwartet: Listentrennzeichen oder )
wobei im Editor der Bereich [-1] markiert ist.
Wo könnte der Fehler liegen??
Gruss Tobias
|
Betrifft: AW: AutoFill mit variablem Bereich
von: xXx
Geschrieben am: 15.10.2003 16:04:31
Hallo,
machs so:
z=Range("D5").end(xldown).row
Selection.AutoFill Destination:=Range(cells(5,5),cells(z,5))
Gruß aus'm Pott
Udo
http://www.excelerator.de
P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
|
Betrifft: AW: AutoFill mit variablem Bereich
von: Tobias
Geschrieben am: 16.10.2003 12:12:11
funktioniert perfekt
vielen Dank nochmals
grus tt
| |
