Tabellenkalkulation

AutoFill

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, ich habe folgendes Makro gebaut. BC45 ist in dieser Tabelle die letzte Zeile. Diese Variiert allerdings und es kann auch mal BC21 sein. Nun will ich erreichen dass nur bis zur letzten Zeile kopiert wird. Range("D3:BC3").Select Selection.AutoFill Destination:=Range("D3:BC45") Range("A1").Select Vielen Dank an EUCH!!

Antwort 1 von Saarbauer

Hallo,

versuch es mal hiermit

Range("D3:BC" & Range("BC65536").End(xlUp).Row ).Select
Selection.AutoFill Destination:=Range("D3:BC45")
Range("A1").Select

Gruß

Helmut

Antwort 2 von Tim85

Hallo Helmut,

ich will ja nicht von der Zelle BC45 abhängig sein, denn diese Zelle variiert.

Die Tabelle kann mehrer Zeilen, aber auch weniger Zeilen haben.

Gruß

Tim

Antwort 3 von Saarbauer

Hallo,

habe es missverstanden, aber wo legst du die letzte Zelle fest bzw. woraus ergibt sich diese?

Gruß

Helmut

Antwort 4 von Tim85

Die letzte Zelle ergibt sich aus Spalte A-C hier stehen die daten.

Tim

Antwort 5 von Tim85

habs geschaft!
DANKE!!

Antwort 6 von Saarbauer

Hallo,

ich gehe von gleichlangen Spalten A-C und anschliessend leeren Spalten aus.

Range("D3:BC3").Select
Selection.AutoFill Destination:=Range("D3:BC" & Range("A65536").End(xlUp).Row )
Range("A1").Select

Sonst müsste man die längste Spalte ermitteln und bei nicht leeren Zellen eine entsprechende Änderung der Angabe
Range("A65536").End(xlUp).Row durchführen.

Gruß

Helmut