Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Tim85 vom 09.04.2020, 11:05 Options
AutoFill
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!!
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 vom 09.04.2020, 11:11 Options
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
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 vom 09.04.2020, 11:19 Options
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
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 vom 09.04.2020, 11:33 Options
Hallo,
habe es missverstanden, aber wo legst du die letzte Zelle fest bzw. woraus ergibt sich diese?
Gruß
Helmut
habe es missverstanden, aber wo legst du die letzte Zelle fest bzw. woraus ergibt sich diese?
Gruß
Helmut
Antwort 4 von Tim85 vom 09.04.2020, 13:04 Options
Die letzte Zelle ergibt sich aus Spalte A-C hier stehen die daten.
Tim
Tim
Antwort 6 von Saarbauer vom 09.04.2020, 15:17 Options
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
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
Ähnliche Themen
Makroprobleme
Platin7 18.07.2007 - 3 Hits - 1 Antwort
VBA Problem mit AutoFill
MarcRenton 21.09.2007 - 13 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
